Apple Lisa Computer Technical Information 


Apple Lisa 


Desktop Library 3.0 


Pascal Interfaces 


This is a listing of the Lisa desktop library interfaces. These interfaces provided the 
foundation for the Lisa's desktop and windowing metaphor (collectively called "Lisa 
Technology"). 


Apple later based the Macintosh Toolbox on these libraries and in some cases used nearly 
an identical programming interface (e.g. MENUS). 
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FILE: "LISA LIB 3 UNIT TABLE" 


000001 KEK KKK KAKA KR KR KKK KKK RK KR KKK RK KR KR KKK RK KR KK RRR KKK KK KR KKK RK ER AR KKK AKER AKA KE 


000002 * 

000003 * APPLE LISA DESKTOP 3.0 LIBRARIES UNIT TABLE 
000004 * 

000005 KAKA KK KKK AK KKK AK KKK AK KK KAR KKK KK KKK KKK KKK KKK KK KARA K KKK AK KKK KKK RK KKK KA KKK 
000006 

000007 UnitName Unit# File# Type DataSize 
00008. eeatdien scales aaee Gee er neal es 
000009 PASLIB 1 Intrin 000000 
000010 UNITSTD 2 Intrin 000002 
000011 GRAFUTIL 3 Intrin 000000 
000012 UNITHZ 4 Shared 000024 
000013 STORAGE 5 Intrin 000008 
000014 QUICKDRA 6 Intrin Q0QQ0CE 
000015 HW NT 7 Intrin 000000 
000016 FEDEC 8 Intrin 000000 
000017 FONTMGR 9 Shared 000054 
000018 EVENTS 10 Shared 000210 
000019 WINDOWS 11 Shared 0010F2 
000020 FOLDERS 12 Shared  00000A 
000021 MENUS 13 Shared  00009C 
000022 FLDUT 14 Intrin 000000 
000023 WMLSTD 15 Intrin 000018 
000024 WMLCRS 16 Intrin 0Q003FE 
000025 WMLGROW 17 Intrin QQQ00E 


000026 WMLSB 18 Intrin 000038 
000027 INTERNAT 19 Intrin 000000 
000028 FPLIB 20 Intrin 000006 


000029 ALERTMGR 21 
000030 MATHLIB 22 
000031 UNITFF 23 
000032 UNITCS 24 
000033 UNITFILE 25 
000034 UNITFMT 26 
000035 BGENV 27 
000036 MATMGR 28 
000037 PARSER 29 
000038 COMPUTE 30 
000039 STUBS 31 
000040 UUNIVERS 32 
000041 FEGLOBAL 33 
000042 COMGR 34 
000043 USTDTERM 35 
000044 UQPGRAPH 36 
000045 TEEXEC 37 
000046 UQPPRINT 38 
000047 LCFEXEC 39 


Intrin 000300 
Intrin 000016 
Shared 00004A 
Shared 000644 
Shared 000156 
Shared 0001F2 
Intrin 000058 
Intrin 00188E 
Intrin 0006FC 
Intrin 000084 
Intrin 000000 
Intrin 000222 
Intrin 000398 
Intrin 00033C 
Intrin 0002CE 
Intrin 000056 
Intrin 000004 
Intrin 000188 
Intrin 0001A6 


000048 TEENV 40 Intrin 00080E 
000049 TM 41 Intrin QOOBCA 
000050 FMGRUTIL 42 Intrin 000000 
000051 PMM 43 Shared 000042 
000052 PMDECL 44 Intrin 000000 


000053 UNITFIGA 45 
000054 SYSILOCK 46 
000055 UCLASCAL 47 
000056 UTKUNIVE 49 
000057 OBJECT 50 


Shared 00002A 
Intrin 000000 
Intrin O0004E 
Intrin 0001CA 
Intrin 000164 


PrPrPrPPrPP 
Oreoo”n”rorwr rrr NM eaewcnwowocoeorroccpcocpcmopoorrPFrP PUP UPrPrPrPrPPrPPrP PrP PrP PPP PrP PP PP Pw 


000058 UTEXT 51 Intrin  00027C¢ 
000059 UDRAW 52 Intrin 0001B2 
000060 UABC 53 Intrin 0009F2 
000061 UDI ALOG 54 Intrin 000564 
000062 LCUT 55 Intrin 00002C 
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000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 


End of 
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12) sIntrin 
12. Shared 
12) sIntrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Shared 
Shared 
Intrin 
Shared 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Shared 
Intrin 


- 
WWWNPP PRP PRP RPP PPN OOTY SSSR H RRR OAM AMAMGMGEADGAAGMH 


00057E 
00070C 
000006 
000000 
000126 
000000 
000052 
000000 
000000 
000000 
00001C 
000000 
000000 
000000 
0000CA 
000250 
0002E8 
000000 
0005D0 
000002 
000000 
000010 
000346 
000000 
000000 
OO00BA 
000026 
00001C 
00001C 
0005B0 
0000BC 
00011C 
000000 
000008 
000000 
000004 
000004 
000000 
000000 
00025E 
000000 
0000DE 
0005C4 
000022 


KEK KKK KKK KKK KR KKK KR KER KKK KKK RK ERK RK KK KK KR KK RRR KKK KKK RK KK KKK RAR KKK KKK KKK KKE 


THE END 


KEK KKK KAKA KR KR KKK KKK RK KR KK KKK ERK RK KK KKK RK KARR KKK KK KR KKK RK KR KR KKK KKK AKA KER 


1OPRIMIT 56 
SHELLCOM 57 
PROGCOMM 58 
RECOVERY 59 
LOWLEVEL 60 
DBDECL1 61 
POOLER 62 
DBENV 63 
HEAP 64 
VLTREE 65 
CZCOMPAC 66 
LABSCAN 68 
SCHEMA 69 
SCAN 70 
FI ELDEDI 71 
SCRAP 73 
FILERCOM 75 
PRPUBLIC 76 
PRSTDINF 77 
PRSTDPRO 78 
PRFILEPR 79 
PRBUF 80 
PRSPOOL 81 
QUEUES 82 
PREVENTS 83 
PRDLGMGR 84 
PRMGR 85 
UVT100 86 
USOROC 87 
STDUNIT 88 
| UMAN 90 
0B) 10 91 
FILEIO 92 
GRAPHS 94 
TREES 95 
REFS 96 
PARTS 97 
LISTS 98 
ME MMAN 99 
PASDEFS 100 
MPASLIB 101 
BLKIOINT 102 
BLOCKIO 103 
PASHEAP 104 
File -- Lines: 
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FILE: "LISA LIB 3 ALERTMGR. TEXT" 


000001 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KEK KK KKK KKK KKK KEK KK KK KEK KK KKK KKK 
000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : ALERTMGR 
000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KEK KK KK RK KK KK EK KKK 
000006 

000007 USES {$U+} ALERTMGR; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U li bhw/ HW NT} Hwint, 

000016 {$U |i bsm/ UNITSTD} UnitStd 

000017 {$U libsm/ UNI THZ} UnitHz, 

000018 {$U libqd/ STORAGE} Storage 

000019 {$U libqd/ QUICKDRAW} QuickDraw 

000020 {$U |i bf m/ FONTMGR} Font Mgr 

000021 {$U |i bfm/ FMGRUTIL} FMgr Util 

000022 {$U libos/SYSCALL} SysCall 

000023 {$U libos/PSYSCALL} PSysCall 

000024 {$U |ibpm/ PMDECL} PMDeclI, 

000025 {$U |i bpm/ PMM} PMM 

000026 {$U |i bwm/ EVENTS} Events, 

000027 {$U |i bwm/ FOLDERS} Folders 

000028 {$U |i bwm/ MENUS} Menus 

000029 {$U |i bwm/ Wi NDOWS} Windows, 

000030 {$U libsb/ WMLSTD} Wml Std 

000031 {$U |ibsb/ WMLCRS} Wml Crs 

000032 {$U libdb/ DBENV} dbenv 

000033 {$setc alSymbols := FSym0K} 

000034 {$setc al Debug := FDbgOK} 

000035 {$setc dbgAl Would := al Debug} 

000036 {$setc dbgAl rt := false} 

000037 {$setc dbgAlEvt := false} 

000038 {$setc dbgAl RdErr := false} 

000039 {$setc dbgAl OpErr := false} 

000040 

000041 CONST 

000042 max But n = 10; 

000043 noButn = 11; 

000044 

000045 TYPE 

000046 TButn = 0..maxButn; 

000047 TAlertFile = “*PAlert Rec 

000048 PAl ert Rec = “TAlertRec; 

000049 TAlertRec = RECORD 

000050 falerts: longint; 
000051 fnumAlerts: integer 
000052 frefNum: integer 
000053 f Pos: integer; 
000054 END; 

000055 TParamdl ert = String[40] 

000056 TArgAl ert = 0..5; 

000057 TCount Alert 7.49% 

000058 TPstr255 = *$tr255: 

000059 TAl ert Ki nd = (getProc, drawProc, askProc, waitProc, stopProc, noteProc 
000060 cautionProc, cautionOKproc, cauti onCancel Proc 
000061 cautionStopProc, cautionNoteProc, cautionlnsistProc); 
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000062 

000063 VAR 

000064 alertError: integer; 

000065 refuseDeactivate: boolean; 

000066 traceWouldAlert: bool ean; 

000067 preventReentry: boolean; 

000068 BackGrinProgress: boolean; 

000069 {$ifc dbgAl RdErr} 

000070 fakeAlError: integer 

000071 {$endc} 

000072 

000073 FUNCTION AskAlert(alertFile: TAlertFile; alertNumber: integer): integer 
000074 

000075 PROCEDURE ArgAlert(n: TArgAlert; s: Str255); 

000076 

000077 FUNCTION BackgroundAlert(alertFile: TAlertFile; alertNumber: integer 
000078 alertType: TAlertKind): integer 

000079 

000080 PROCEDURE BeepAlert(volume: integer) 

000081 

000082 FUNCTION ButnPushed(first, last: TButn; VAR pushed: TButn; 

000083 pt: Point): boolean; 

000084 

000085 FUNCTION CautionAlert(alertFile: TAlertFile; alertNumber: integer): boolean; 
000086 

000087 FUNCTION CalcButWidth(topButn, botButn: TButn; VAR height: integer): integer 
000088 

000089 PROCEDURE CountAlert(whichCounter: TCountAlert; countValue: integer); 
000090 

000091 PROCEDURE DrawAlert(alertFile: TAlertFile; alertNumber: integer; 
000092 marginRect: Rect); 

000093 

000094 PROCEDURE DTAlert(alertFile: TAlertFile; osDT: longint; 

000095 VAR userString: TParamAlert); 

000096 

000097 PROCEDURE EndWaitAlert 

000098 

000099 PROCEDURE GetAlert(alertFile: TAlertFile; alertNumber: integer 

000100 pStr: TPstr255); 

000101 

000102 PROCEDURE GetButn(d: TButn; pStr: TPstr255); 

000103 

000104 PROCEDURE HideButn(d: TButn); 

000105 

000106 PROCEDURE InitAlerts(cacheSize, cacheBytes: integer; hz: THz; idleProcPtr 
000107 errProcPtr: procPtr) 

000108 

000109 PROCEDURE init MP(myHeap: Thz; toolPreFix: TParamAlert; 

000110 ptrToAlertProc: procPtr; phraseversion: integer 
000111 myMenus: rMenuPtr; VAR alertFile: TAlertFile; 

000112 VAR error: integer) 

000113 

000114 PROCEDURE LdSgAl; 

000115 

000116 PROCEDURE LocateAlert(top: integer); 

000117 

000118 PROCEDURE LockAlert(alertFile: TAlertFile; alertNumber: integer) 
000119 

000120 PROCEDURE NoteAlert(alertFile: TAlertFile; alertNumber: integer) 
000121 

000122 FUNCTION NthAlert(ordinal: INTEGER; alertFile: TAlertFile; VAR alertNumber 
000123 numStages: integer; VAR alertKind: TAlertKind): BOOLEAN 
000124 

000125 PROCEDURE OpenPhraseFile(VAR refNum integer; path: pat hName) 

000126 

000127 PROCEDURE ParamAlert(citel, cite2, cite3: Str255) 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 


Apple Lisa Computer Technical Information 


PROCEDURE PushButn(d: TButn; f: boolean); 

FUNCTION ReadAlerts(refNum, version: integer): TAlertFile 
PROCEDURE ReshowButn(d: TButn); 

PROCEDURE SetButWidths(width: integer); 


PROCEDURE ShowButn(d: TButn; h, v: integer; fDefault: boolean); 


PROCEDURE StopAlert(alertFile: TAlertFile; alertNumber: integer); 


PROCEDURE Unl ockAlerts; 


PROCEDURE WaitAlert(alertFile: TAlertFile; alertNumber: integer) 


PROCEDURE WouldAlert(VAR menu: menulnfo; itemlndex: integer) 


KEK KKK KKK KK RRR KKK KKK RK KR KK KKK KR KR KKK EK KR KK ARK KR KKK KKK KER KKK KK KKK KKK KKK KKK KKK KEK 


x 


THAT'S ALL FOLKS ... 


KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KR KKK ERK RK KKK KER KKK KKK KER KKK KK KKK KR KR KKK KK KKK KKK 


End of File -- Lines: 152 Characters: 4546 
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FILE: "LISA LIB 3 BLK! OI NT. TEXT" 


000001 KEK KKK KAKA KR KK KKK KKK RK KK KK KR KK RK KKK KEK KR KKK RK ER KKK KK KR KR KKK KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : BLKIOINT 

000004 * 

000005 REG IGG IGG GG GGG IGG GGG IGG IGG GG GRRE RAKES 
000006 

000007 USES {$U+} BLKI OI NT; 


000008 

000009 

000010 INTRINSIC; {$%+} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libos/syscall.obj } syscall, 
000016 {$U libpl/UClascal. obj} UClascal; 
000017 

000018 {$SETC MONITOR := false} 
000019 {$SETC DEBUG = false} 
000020 {$SETC fRANGECK := TRUE } 
000021 {$SETC f SYMBOL = TRUE } 
000022 

000023 CONST 

000024 MMa x! nt = $7FFF; 

000025 Max Unit = 20; 

000026 Max Di r = 77; 

000027 Max Dir = 78; 

000028 VI DLeng = 7; 

000029 TI DLeng = 15; 

000030 Max Seg = 15; 

000031 FBI kSize = 512; 

000032 Dir Blk = 2: 

000033 NameLen = 23; 

000034 Fillrtn = 11; 

000035 SysUnit = 5; 

000036 DirSize = 2048; 

000037 Dir NBI ocks = 4; 

000038 unitScConsole = 1: 

000039 unitScKeyboard = 2; 

000040 unitWiConsole = 4; 

000041 unitWiKeyboard = 5; 

000042 unitScPrinter = 6; 

000043 unitWi Printer = 7; 

000044 unitOSFile = 10; 

000045 

000046 TYPE 

000047 {$1 FC MONI TOR} 

000048 1 ORs| t Wd = (I NoError, | BadBlock, |BadUnit, | BadMode, I TimeOut, 
000049 ILostUnit, ILostFile, | BadTitle, |NoRoom, INoUnit, 
000050 INoFile, | DupFile, INotClosed, I|NotOpen, | BadFormat, 
000051 1StrgOvfl, | WrProt, |DevError, INoDirSpace); 
000052 {$ELSEC} 

000053 1 ORs| t Wd = (I NoError); 
000054 {$ENDC} 

000055 Dat eRec = PACKED RECORD 
000056 Year: 0..100; 
000057 Day: 0..31; 
000058 Month: 0..12; 
000059 END; 

000060 Unit Num = 0..MaxUnit; 
000061 VID = STRING[ VI DLENG]; 


Apple Lisa Desktop Library 3.0 Pascal Interfaces -- 7 of 196 


Apple Lisa Computer Technical Information 


000062 DirRange = 0..MaxDir; 

000063 dirrangl = 0..MaxDir1; 

000064 TitlelD = STRING[TI DLENG]; 

000065 Full lD = STRING[ NAMELEN]; 

000066 Fil eKi nd = (UNTYPEDFILE, XDSKFILE, CODEFILE, TEXTFILE, | NFOFILE, 
000067 DATAFILE, GRAFFILE, FOTOFILE, SECURED! R); 
000068 DirEntry = PACKED RECORD 

000069 DFIRSTBLK: | NTEGER: 

000070 DLASTBLK: | NTEGER; 

000071 STATUS: BOOLEAN; 

000072 FILLER1: 0..1024; 

000073 CASE DFKIND: FILEKIND OF 

000074 SECUREDIR, UNTYPEDFILE: 

000075 (DVID: VID; 

000076 DEOVBLK: | NTEGER; 

000077 DNUMFI LES: INTEGER: 

000078 DLOADTI ME: INTEGER: 

000079 DLASTBOOT: DATEREC); 

000080 XDSKFILE, CODEFILE, TEXTFILE, | NFOFILE, DATAFILE, 
000081 GRAFFILE, FOTOFILE: 

000082 (DTID: TitlelD; 

000083 DLASTBYTE: integer; 

000084 CASE BOOLEAN OF 

000085 TRUE: 

000086 (DORefnum: integer; ); 
000087 FALSE: 

000088 (DACCESS: DATEREC; ); ) 
000089 END; 

000090 DirP = “Directory; 

000091 Directory = ARRAY [DirRange] OF DirEntry; 

000092 CloseType = (CNormal, CLock, CPurge, CCrunch); 
000093 CharArray = PACKED ARRAY [0..FBI kSize] OF CHAR; 
000094 Wi ndowP = “Window; 

000095 Wi ndow = CharArray; 

000096 FileState = (FJ) andW, FNeedChar, FGotChar); 

000097 FI BP = “FIB; 

000098 FVI Drec = RECORD 

000099 CASE BOOLEAN OF 

000100 TRUE: 

000101 (FTrefnum: integer); 

000102 FALSE: 

000103 (FVID: VID; ); 

000104 END; 

000105 FIB = RECORD 

000106 FWindow: Wi ndowP: 

000107 FEOLN, FEOF: BOOLEAN: 

000108 FlsOS: BOOLEAN; 

000109 FState: FileState; 

000110 FRecSize: INTEGER; 

000111 CASE FlsOpen: BOOLEAN OF 

000112 TRUE: 

000113 (FIlsBl kd: BOOLEAN; 

000114 FNewFile: BOOLEAN; 

000115 FUnit: UnitNum; 

000116 FVI Dstuff: FVIDrec; 

000117 FMaxBlk, FNxtBlk, FReptCnt: INTEGER; 
000118 Hi Byt3: 0..100; 

000119 FModified: BOOLEAN; 

000120 FHeader: DIRENTRY; 

000121 Hi Byt4: 0..100; 

000122 CASE FSoftBuf: BOOLEAN OF 
000123 TRUE: 

000124 (FMaxByte, FNxtByte: INTEGER; 
000125 Hi Byt5: BOOLEAN; 
000126 FBufChngd: BOOLEAN; 
000127 FBuffer: CharArray)) 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
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END; 
{$1 FC MONI TOR} 
UTBLENTRY = RECORD 
UVID: VID; 
LOGGED: BOOLEAN 
lockdir: boolean: 
CASE UISBLKD: BOOLEAN OF 
TRUE: 
(UEOVBLK: I NTEGER) 
END; 
{$ENDC} 
envirRec = RECORD 
AG_init: Longint; 
PC_2setup: longint 
PC_retinit: longi nt; 
SP_init: longint; 
END; 
l ongaddr = “longi nt; 
Tstr255 = string[255] 
TTer mi nal = SUBCLASS OF NIL 
FUNCTION CREATE: TTerminal; ABSTRACT; 
PROCEDURE VWrite(VAR str: Tstr255); ABSTRACT; 
FUNCTION VRead: CHAR; ABSTRACT; 
PROCEDURE VGotoxy(x, y: INTEGER); ABSTRACT; 
FUNCTION VKeyPress: BOOLEAN; ABSTRACT; 
FUNCTION VAbortKey: BOOLEAN; ABSTRACT; 
PROCEDURE VScreenCtr(contrfun: INTEGER); ABSTRACT; 
FUNCTION OpenPrinter: INTEGER; ABSTRACT; 
FUNCTION PrWite(VAR str: Tstr255): INTEGER; ABSTRACT; 
FUNCTION ClosePrinter: INTEGER; ABSTRACT; 
PROCEDURE CleanUp; ABSTRACT; 
PROCEDURE Setupl OFile; 
PROCEDURE I nWindow(yesno: BOOLEAN); 
END; 
VAR 
1ORsIt: | NTEGER; 
PMyi d: longint 
PAbort KeyF: bool ean; 
PResProgram: boolean; 
PBegi nEnv: envirRec; 
PTrLisaChar: Boolean; 
PConsWindow: BOOLEAN 
Pl nWi ndow: INTEGER 
Pl nputf window: CHAR; 
Plnputfile: FILE; 
POutf window: CHAR 
POutputfile: FILE; 
PasTerm: TTermi nal; 
TermMptr: “longi nt; 
Termdata: RECORD 


classptr: longi nt; 


haltaddress: LONGINT; 

f pcb: INTEGER; 

{$l FC MONI TOR} 

gdirectory: PACKED ARRAY [1..dirsize] OF CHAR 
{$ENDC} 


FUNCTION % FIORESULT: INTEGER 
PROCEDURE % Setiorslt(ior: integer) 
PROCEDURE % Backupinput( VAR f: text); 


FUNCTION %%%zenviron: longi nt; 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 


End of 
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KEK KKK KAR KK RRR KKK KKK RK KR KK KKK KAKA KKK EK KR KK RRR RR KKK KK KKK RK KR KK KKK KAKA KKK KK KKK KKK 


x 


i THAT'S ALL FOLKS ... 
k 


KEK KKK KKK KK RRR KKK KKK RK KR KKK KK RK KKK KKK KR KK ARK RR KKK KK KKK RK KR KK KKK RR KK KKK KK KKK KEK 


File -- Lines: 200 Characters: 7086 
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FILE: "LISA LIB 3 BLOCKI 0. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KK KK ERK KARR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : BLOCKIO 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG GGG IGG IGG GRR RRR RAKES 
000006 

000007 USES {$U+} BLOCKIO 


000008 

000009 

000010 INTRINSIC SHARED; {$%+} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libos/syscall.obj} syscall, 

000016 {$U libos/psyscall.obj} psyscall, 

000017 {$U libpl/ bl kiointr. obj} bl kiointr 

000018 

000019 CONST 

000020 CclearScreen = 1; 

000021 CclearEScreen = 2; 

000022 CclearELine = 3; 

000023 CgoHome = 11; 

000024 CleftArrow = 12" 

000025 CrightArrow = 13; 

000026 CupArrow = 14; 

000027 CdownArrow = 15; 

000028 

000029 TYPE 

000030 consoledest = (alscreen, mainscreen, xsorocA, xsorocB, folder, sparel, 
000031 spare2, spare3); 

000032 dsProcCode = (dsResProg, dsSoftPwhtn, dsPrintDev, dsSetGPrefix, 
000033 dsEnbDisk, dsGetDiskEnbF); 
000034 dsProcParam = RECORD 

000035 CASE ProcCode: dsProcCode OF 
000036 dsResProg: 

000037 (RProcessid: longint); 
000038 dsSoft Pwhtn: 

000039 (SPButton: boolean); 
000040 ds Print Dev: 

000041 (PrDevice: e name); 
000042 dsSetGPrefix: 

000043 (errnum: INTEGER: 
000044 prefix: pathname); 
000045 dsEnbDi sk: 

000046 (toEnbDisk: boolean); 
000047 dsGet Di skEnbF: 

000048 (diskEnbF: BOOLEAN); 
000049 END; 

000050 pdsProcCode = (pdsSomething); 

000051 pdsProcParam = RECORD 

000052 CASE ProcCode: pdsProcCode OF 
000053 pdsSomet hi ng: 

000054 (something: longint); 
000055 END; 

000056 

000057 PROCEDURE % FINIT(VAR F: FIB; WNDOW WINDOWP; recbytes: INTEGER) 
000058 

000059 PROCEDURE % FOPEN(VAR F: FIB; VAR FTITLE: pathname; FOPENOLD: BOOLEAN; 
000060 JUNK: longint); 

000061 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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PROCEDURE % FCLOSE(VAR F: FIB; FTYPE: integer); 


FUNCTION % FBLOCKIO(VAR F: FIB; A: longint; NBLOCKS, RBLOCK: INTEGER 
DOREAD: BOOLEAN): INTEGER 


PROCEDURE % FGET(VAR F: FIB); 
PROCEDURE % FPUT(VAR F: FIB); 


PROCEDURE % WRITELN( VAR F: FIB) 


PROCEDURE % WRITECHAR(VAR F: FIB; charaddr: longaddr; count: integer); 


PROCEDURE % READLN( VAR F: FIB) 

FUNCTION % READCHAR(VAR F: FIB): CHAR 

PROCEDURE % FSEEK(VAR F: FIB; RECORDNUM: integer); 
PROCEDURE % FGOTOXY(X, Y: INTEGER); 

FUNCTION PAbortFlag: bool ean; 

PROCEDURE GetGPrefix(VAR prefix: pathname); 
PROCEDURE ScreenCtr(contrfun: integer); 

PROCEDURE GetPrDevice(VAR PrDevice: e name); 
PROCEDURE PTranLisaChar(toTransl ate: boolean); 
FUNCTION PaslibVersion: INTEGER 

PROCEDURE Blockl Ol nit; 

PROCEDURE Bl ockl Odisinit; 

PROCEDURE lockPaslib(VAR errnum: integer); 
PROCEDURE lockPasiolib(VAR errnum integer); 
PROCEDURE moveconsole(VAR errnum: integer; applconsole: consoledest); 


PROCEDURE ExecReset(VAR errnum: INTEGER; VAR execfile: pathname; 
stopexec: BOOLEAN); 


FUNCTION ExecFlag: BOOLEAN 


PROCEDURE OutputRedirect(VAR errnum: INTEGER; VAR outfile: pathname 
stopoutput: BOOLEAN); 


FUNCTION Out putRFlag: BOOLEAN 

PROCEDURE DSPaslibCall(VAR ProcParam dsProcParam) 

PROCEDURE % PDSPaslibCall(VAR ProcParam: pdsProcParam) 

PROCEDURE % blockiosetup(firsttime: boolean; VAR regis: envirRec); 
FUNCTION % CkResident(VAR regis: envirRec): bool ean; 


FUNCTION % pkeypress(VAR f: fib): boolean; 


PROCEDURE % funitiocall(unitno: integer; bufaddr: longint; nbytes: integer 


blocknum: integer; mode: integer; unitcode: i 
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FUNCTION % funitbusy(unitno: integer): boolean; 
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x 


* THAT'S ALL FOLKS ... 
k 
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FILE: "LISA LIB 3 CZCOMPAC. TEXT" 


000001 KEK KKK KKK KK RRR KKK KR KR KKK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : CZCOMPAC 

000004 * 

000005 RGGI IGG IGG IGG IGG IGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} CZCOMPAC 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$lFC OSBuilt } 

000016 {$U libsm/unitstd. obj } unitstd, 
000017 {$U libdb/dbenv.obj } dbenv 

000018 {$U libdb/dbdecl1. obj } dbdecl1, 
000019 {$U libos/syscall.obj } syscall 
000020 {$U libos/psyscall.obj } psyscall 
000021 {$U libdb/lowlevel.obj } lowlevel 
000022 {$U libdb/pooler.obj } pooler 

000023 {$U libdb/heap. obj } heap; 

000024 {$ELSEC } 

000025 {$U obj: dbenv.obj } dbenv, 

000026 {$U obj:dbdecl1.obj } dbdecl1, 
000027 {$U obj:syscall.obj } syscall 

000028 {$U obj:lowlevel.obj } lowlevel 
000029 {$U obj: pooler.obj } pooler 

000030 {$U obj: heap. obj } heap 

000031 {$ENDC } 

000032 

000033 {$SETC debug := false } 

000034 

000035 Type 

000036 

000037 

000038 states de compact = (no try, first_try) 
000039 

000040 VAR 

000041 pheap_segment: longi nt; 

000042 heap segment: integer 

000043 heapsi ze: longi nt; 

000044 czone: zonedesc; 

000045 compact state: states de compact; 
000046 {$1FC PRERELEASE } 

000047 debug compact: boolean; 

000048 {$ENDC } 

000049 

000050 PROCEDURE heap_compact 

000051 

000052 FUNCTION init_compact_state: states de compact 
000053 

000054 FUNCTION retry _compact(VAR error code: integer; 
000055 VAR local state: states _de compact): bool ean; 
0 

conges KAA KKKKKK KKK KKK KARR KAR KKK KKK KKK KK ARK KKK KKK KKK KAKA KKK KKK KKK KKK KKK KK KKKKKKKKE 
000058 * 

000059 * THAT'S ALL FOLKS ... 
000060 * 


000061 KEK KKK KAR KKK KKK KKK KR KKK KK ERK KARR KKK EK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KEK 
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000062 


End of File -- Lines: 62 Characters: 1552 
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FILE: "LISA LIB 3 DBDECL1. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KR KKK ERK RK KARA KR KKK KKK KKK KKK KKK RK KARR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : DBDECL1 
000004 * 

000005 RAG IGG IGG GGG IGG IGG IGG IGG REE RAKES 
000006 

000007 USES {$U+} DBDECL1 

000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 {$SETC OSBUILT := TRUE } 


000014 

000015 USES 

000016 {$1 FC OSBUILT } 

000017 {$U libsm/unitstd. obj } unitstd, 
000018 {$U libdb/dbenv.obj } dbenv, 
000019 {$U libos/syscall.obj } syscall, 
000020 {$U libos/psyscall.obj } psyscall, 
000021 {$U libin/intrlibp.obj } international; 
000022 {$ELSEC } 

000023 {$U OB): dbenv.obj } dbenv, 
000024 {$U INTRLIB. obj } international; 
000025 {$ENDC } 

000026 

000027 {$SETC PRERELEASE : = FALSE } 

000028 {$SETC DOLLARD = NOT fSymOk } 
000029 {$SETC doTraceDB := TRUE} 

000030 {$SetC fTraceDB = doTraceDB AND f TRACE} 
000031 

000032 Const 

000033 

000034 

000035 It = 0; 

000036 gt =: 2s 

000037 eq = 2: 

000038 wordsize = 2; 

000039 elemsi ze = 16; 

000040 halfelemsize = 8: 

000041 maxrsize = 1000; 

000042 ascending = 0; 

000043 descending =i 

000044 ftypnull = 0; 

000045 ftypintl = 1; 

000046 ftypint2 = 2; 

000047 ftypint4 = 3; 

000048 ftypints8 = 4; 

000049 ftypfptr = 5; 

000050 ftyptick = 6; 

000051 ftyppack2 = 7; 

000052 ftypstr = 8; 

000053 ftypvstr = 9; 

000054 ftypvnul | = 10; 

000055 ftypsvstr = 11; 

000056 ftypsvnul | = 12; 

000057 ftypes = 12; 

000058 nullintl = + 128; 

000059 nullint2 = - 32768 

000060 nullint4 = - 2147483648 

000061 fnilval =- 1; 
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000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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dbleft = 0; 
dbri ght = 1; 
dbcentered = 2} 
dbwordwrap = 3; 
dbnul | ok = 4; 
dbdescend = 5} 
dbisvisible = 6 
none = 0; 
Ss =1: 
chk = 2: 
zip = 3; 
ph = 4; 
dol = 5: 
num = 6; 
tim = 7; 
dt = 8: 
lets = 9: 
tick = 10; 
OEMti ck = 11; 
OEMFl ets = 12: 
OEMSVI ets = 13; 
OEMFGen = 14; 
OEMVGen = 15; 
OEMSVGen = 16; 
ecstrBnd = 40; 
TYPE 
short = + 32767..32767 
ptrinteger = “integer; 
ptrl ongi nt = “longi nt; 
fileptr = longi nt; 
ptrfileptr = “fileptr; 
ticket = RECORD 
high: integer 
low: longint 
END; 
ptrticket = “ticket; 
fstring = PACKED ARRAY [0..0] OF char; 
ptrfstring = “fstring; 
fints8 = RECORD 
high: longint; 
low: longint 
END; 
ptrfint8 = “fints; 
vfld = RECORD 
size: integer; 
offset: integer 
END; 
ptrvfld = “vfld; 
svfld = PACKED RECORD 
offset: 0..1023; 
size: 0..63; 
END; 
ptrsvfld = “svfld; 
bitrange = 0..15; 
elemset = SET OF bitrange 
bits = ARRAY [0..0] OF elemset; 
ptrbits = “bits; 
fieldrange = ftypnull..ftypes 
ptr_field = RECORD 


CASE fieldrange OF 


ftypnull, ftypintl, ftyppack2: 


(ptr: ptrdata); 
ftypint2: 

(pint2: ptrinteger); 
ftypint4: 
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000158 
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000160 
000161 
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000163 
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000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
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000180 
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000182 
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000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
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bitoffset 


flddesc 


recptr 
ptrrecptr 
VOheader 


header 


checki nfo 
ecstr 
ptrdbfield 
dbfield 


(pint4: ptrlongint); 
ftypints: 
(pint8: ptrfints8); 
ftypf ptr: 
(pfptr: ptrfileptr); 
ftyptick: 
(ptick: ptrticket); 
ftypstr: 
(pstr: ptrfstring); 
ftypvstr, ftypvnull: 
(pvfld: ptrvfld); 
ftypsvstr, ftypsvnull 
(psvfld: ptrsvfld) 
END; 
RECORD 
nbits: bitrange 
shit: bitrange 
END; 
RECORD 
offset: integer 
direction: byte 
ftype: byte; 
CASE boolean OF 
false: 
(size: integer); 
true: 
(bo: bitoffset) 
END; 
ARRAY [0..0] OF flddesc 
“recptr; 
RECORD 
space: integer 
version: integer 
nfields: short; 
nkeys: short; 
nsort: short; 
keybytes: short; 
recsize: integer 
flags: elemset; 
END; 
RECORD 
Space: integer 
version: integer 
nfields: short; 
nkeys: short; 
nsort: short; 
keybytes: short; 
recsize: integer 
flags: elemset; 
MarketCode: integer; 
END; 
ARRAY [1..5] OF integer 
string[ecstrBnd] 
“dbfield: 
RECORD 
fldsize: integer 
name: short; 
display: short; 
highval: short; 
lowval: short; 
defval: short; 
editcheck: checkinfo; 
fldtype: integer; 
options: elemset; 
reptype: short; 
offset: integer 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
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CASE boolean OF 


false: 
(size: integer); 
true: 
(bo: bitoffset); 
END; 
monthstr = string[9]; 
longstr = string[255] 


PROCEDURE movelg(pl, p2: ptrdata; nbytes: integer); 
PROCEDURE moverg(pl, p2: ptrdata; nbytes: integer); 
PROCEDURE movelf(p1, p2: ptrdata; nbytes: integer); 
PROCEDURE moverf(pl, p2: ptrdata; nbytes: integer); 


FUNCTION extract(pbyte: ptrdata; nbit, sbit: integer): integer 


PROCEDURE deposit(value: integer; pbyte: ptrdata; nbit, sbit: integer); 


FUNCTION mult424(m4: fileptr; m2: integer): fileptr; 

FUNCTION comp44(s1, s2: fileptr): integer 

FUNCTION comphand(VAR si, s2: fint8): integer 

FUNCTION div424(m4: fileptr; m2: integer; VAR r2: integer): fileptr 
PROCEDURE setset(pset: ptrdata; lastelement, nelements: integer); 
PROCEDURE clearset(pset: ptrdata; elements: integer); 

PROCEDURE clearbit(pset: ptrdata; bit: integer); 

FUNCTION inpset(pset: ptrdata; bit: integer): boolean; 


PROCEDURE setbit(pset: ptrdata; bit: integer); 


FUNCTION pintersect(pset1, pset2: ptrbits; setelements: integer): boolean; 


FUNCTION compare(desci, desc2: ptrrecptr; nfields: integer; precl, 
prec2: ptrdata): integer 


PROCEDURE extractkey(pdescl, pdesc2: ptrrecptr; nflds: integer 


pentry: ptrdata; pwhere: ptrdata; vflds: integer); 


FUNCTION findchanges(pdescl: ptrrecptr; nfields: integer; pbefore 
pafter: ptrdata; pset: ptrbits): boolean; 


PROCEDURE GetRepType(VAR result: integer; DataType: INTEGER 
CheckArray: Checkil nfo; VAR RepType: Short; 
VAR Size: INTEGER) 


PROCEDURE ValidRepType(VAR result: integer; DataType: INTEGER 
CheckArray: Checkil nfo; RepType: Short; 
Size: INTEGER); 


KEK KKK KAR KKK KR KKK KKK RK KK KK ERK KARR KKK RK KR KK ARK KR KKK KKK RRR KKK KKK KKK RRR KKK KKK KKK KK 


x 


THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KK RK KKK KKK KR KKK KKK RK KR KR KKK EK KR KK ARK KKK KKK KK KER KK RK KKK KKK KKK KAKA KKK KKK 
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FILE: "LISA LIB 3 DBENV. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KAKA KKK ERK RK KAR KKK KKK KK KKK K KR KK KKK KKK KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : DBENV 

000004 * 

000005 REG I GGG IGG IGG GGG IGG IGG IGG GR GRE RAKES 
000006 

000007 USES {$U+} DBENV; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 TYPE 

000015 byte = + 128,.127 

000016 data = ARRAY [0..0] OF byte; 
000017 ptrdata = “data; 

000018 hnddata = “ptrdata; 

000019 intdata = ARRAY [0..0] OF integer 
000020 ptrintdata = “jntdata: 

000021 hndintdata = “ptrintdata; 

000022 


000.0230 6G GGG GGG GGG GGG RRR RK 
000024 * 

000025 * THAT'S ALL FOLKS ... 

000026 * 

000.027 GGG GGG GGG GGG GGG GR RRR KK 


000028 


End of File -- Lines: 28 Characters: 684 
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FILE: "LISA LIB 3 EVENTS. TEXT" 


000001 KEK KKK KAR KKK KK KKK KKK RK KK KK ERK KAKA KKK RK KR KK KKK ERK KKK KKK KR KKK KK KKK KR KKK KAKA KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : EVENTS 

000004 * 

000005 RR IGG IGG IGG IGG GGG GGG GGG IGG IGG RR RAKES 
000006 

000007 USES {$U+} EVENTS; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libos/SysCall } SysCall, 
000016 {$U libos/PSysCall } PSysCall, 
000017 {$U |i bhw/ HWint } HWnt, 
000018 {$U libsm/UnitStd } UnitStd, 
000019 {$U libsm/ UnitHz } UnitHz, 
000020 {$U libqd/Storage } Storage, 
000021 {$U |i bpm/ PmDec! } PmDecl, 
000022 {$U |i bpm/ PmM } Pm, 
000023 {$U libqd/ QuickDraw } QuickDraw, 
000024 {$U |i bf m/ Font Mgr } Font Mgr; 
000025 

000026 {$SetC wm0S = TRUE } 
000027 {$SetC wmDebug = FALSE } 
000028 {$SetC wmSymbols := fSymOk } 
000029 {$SetC wmjournal := TRUE } 
000030 {$SetC wmMonkey = FALSE } 
000031 {$SetC wmScrn2File := TRUE } 
000032 {$SETC doTraceWM := TRUE} 
000033 {$SetC fTraceWM := doTraceWM AND f TRACE} 
000034 

000035 CONST 

000036 nil Event = 0; 

000037 but tonDown = 1; 

000038 but tonUp = 2; 

000039 keyDown = 3; 

000040 folderActivate = 4: 

000041 folderDeactivate = 5; 

000042 folderUpdate = 6; 

000043 fol der Moved =o 

000044 filerEvent = 8: 

000045 abort Event = 9; 

000046 diedEvent = 10; 

000047 privatel = 11; 

000048 private2 = 12; 

000049 private3 = 13; 

000050 diskEvent = 14; 

000051 catalogEvent = 15; 

000052 diskil nCode = 1; 

000053 disklOutCode = 2; 

000054 disk2I nCode = 3: 

000055 disk20utCode = 4; 

000056 paraCode = 5; 

000057 buttonCode = 63 

000058 mouseCode = 7} 

000059 power Code = 8; 

000060 mi crolnCode = 11; 

000061 microllnCode = 12; 
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000071 
000072 
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000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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mi cro2inCode 
mi cro3inCode 
mi croQut Code 
mi crol0utcode 
mi cro20ut Code 
mi cro30ut Code 


optionCode 
shiftCode 
commandCode 
nil UserData 
nil Process 
why Not 

why Click 
whyCl ose 
why Di sk 
why Di ed 
why Fi nd 


E 

KeyCode 
KeySet 
Processlid 
Wi ndowPtr 
EventHandle 
Event Kind 
Event Ptr 
Event Record 


wmHeap: 
deskPort: 
menuFol der: 
alert Folder: 


dialogFolder: 


filerFolder: 
scrapFol der: 


activeFol der: 


key Wi ndow: 


filerProcess: 
scrapProcess: 
activeProcess: 


keyProcess: 
clickDel ay 
caret OnTi me: 


caret Off Ti me: 


event Debug: 
trapKeys: 
keyTrapProc: 


13; 
14; 
15; 
16; 
17; 
18; 


300; 
301; 
302; 
303; 
304; 


HO oa 
e 
"NO 
— 


0..127; 

SET OF KeyCode; 

Longl nt; 

Graf Ptr; 

“Event Ptr; 

INTEGER; 

“Event Record: 

RECORD 
who: WndowPtr 
what: EventKi nd; 
where: Point; 
when: Longl nt; 
why: INTEGER; 
shiftKey: BOOLEAN 
al phaKey: BOOLEAN 
codeKey: BOOLEAN; 
appleKey: BOOLEAN; 
mouseKey: BOOLEAN 
repeatKey: BOOLEAN; 
keyCap: KeyCode 
ascii: CHAR; 
toProcess: Processid: 
fromProcess: Processld; 
fromFolder: WindowPtr 
userData: Longl nt; 

END; 


Thz; 

Graf Ptr; 
Wi ndowPtr; 
Wi ndowPtr; 
Wi ndowPtr; 
Wi ndowPtr; 
Wi ndowPtr; 
Wi ndowPtr; 
Wi ndowPtr; 
Processid: 
Processid: 
Processid: 
Processid: 
Longl nt; 
Longl nt; 
Longl nt; 
BOOLEAN; 
KeySet; 
ProcPtr; 
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000128 trapPres: Processid: 

000129 _CA_StartFlag: BOOLEAN 

000130 queueLocked: BOOLEAN 

000131 recordFl ag: BOOLEAN 

000132 playFl ag: BOOLEAN 

000133 monkeyFl ag: BOOLEAN 

000134 monkeyWorld: BOOLEAN 

000135 wns parel: LONGI NT; 

000136 wis pare2: LONGI NT; 

000137 wis pare3: LONGI NT; 

000138 wms pared: LONGI NT; 

000139 wms pared: LONGI NT; 

000140 

000141 FUNCTION Abort: BOOLEAN 

000142 

000143 FUNCTION Button: BOOLEAN 

000144 

000145 PROCEDURE CheckEvents(updateOK: BOOLEAN); 
000146 

000147 PROCEDURE DeleteEvent(evHandle: EventHandle); 
000148 

000149 FUNCTION ElapsTime: LonglI nt; 

000150 

000151 FUNCTION EventAvail: BOOLEAN; 

000152 

000153 FUNCTION FirstEvent: EventHandle; 

000154 

000155 PROCEDURE GetEvent(VAR event: EventRecord); 
000156 

000157 PROCEDURE GetEvFrom(fromProcess: ProcessID; VAR event: EventRecord) 
000158 

000159 PROCEDURE GetKeys(VAR keys: KeySet); 

000160 

000161 PROCEDURE Get Mouse(VAR pt: Point); 

000162 

000163 FUNCTION I mActive: BOOLEAN 

000164 

000165 PROCEDURE I nitEvents 

000166 

000167 PROCEDURE Let Ot hersRun; 

000168 

000169 FUNCTION NextEvent(evHandle: EventHandle): EventHandle; 
000170 

000171 FUNCTION PeekEvent( VAR event: EventRecord): BOOLEAN; 
000172 

000173 PROCEDURE PrintScreen: 

000174 

000175 PROCEDURE PushEvent(VAR event: EventRecord); 
000176 

000177 PROCEDURE SendEvent( VAR event: EventRecord; toPrcs: Processld) 
000178 

000179 FUNCTION Still Down: BOOLEAN 

000180 

000181 FUNCTION Time: Longl nt 

000182 

000183 PROCEDURE WakeUpHead 

000184 {$1FC wm) ournal } 

000185 

000186 PROCEDURE StartPlayback(fileName: PathName; journal Mode: | NTEGER) 
000187 

000188 PROCEDURE StartRecording(fileName: PathName; journal Mode: | NTEGER) 
000189 

000190 PROCEDURE StopPl ayback; 

000191 

000192 PROCEDURE StopRecording 

000193 {$ENDC } 
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x 


i THAT'S ALL FOLKS ... 
k 


KEK KKK KKK KK RK KKK KK KKK KKK KK KR KK RK KKK KKK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK KKK KKK KKK KEK 
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FILE: "LISA LIB 3 FEDEC. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KK KK ERK KR KR KKK ERK RK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FEDEC 

000004 * 

000005 RGGI IGG IGG GGG GGG GGG IGG IGG GGG RE RAKE 
000006 

000007 USES {$U+} FEDEC; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/unitstd. obj } UnitStd, 
000016 {$U libsm/unithz. obj } UnitHz, 
000017 {$U libqd/ QuickDraw} QuickDraw, 
000018 {$U libfm/ FontMgr} Font Mgr, 
000019 {$U libqd/ Storage} Storage, 
000020 {$U libdb/dbenv} dbenv; 
000021 {$SETC doTraceFE := TRUE} 
000022 {$SetC fTraceFE := doTraceFE AND f TRACE} 
000023 

000024 CONST 

000025 fldFull = 1; 

000026 fldProtected = 2: 

000027 null Select = 3; 

000028 invScrapType = 4; 

000029 invOpType = 5; 

000030 noRoomForRuns = 6; 

000031 invalidEdit = 7]: 

000032 FEallocationFailed = 8; 
000033 FENot Undoable = 9: 

000034 left = 1; 

000035 right = 2" 

000036 center = 3: 

000037 set Nor mal = 1; 

000038 setUnderline = 2; 

000039 set Bold = 3; 

000040 setitalics = 4; 

000041 set Outline = 53 

000042 set Shadow = 6; 

000043 set Font =] 

000044 setToModern = 8; 

000045 setToClassic = 9; 

000046 noOp = 0; 

000047 cut Op = 1; 

000048 copy Op = 2; 

000049 pasteOp = 3; 

000050 chi nput Op = 4; 

000051 clearOp = 5; 

000052 f or mat Op = 6; 

000053 valueToFormul aOp = 7; 
000054 formul aToValueOp = 8; 
000055 MaxFieldLngth = 1000; 
000056 

000057 TYPE 

000058 Tstr = string[50]; 
000059 Ttriple = “Tstr; 
000060 interval = RECORD 
000061 [pFst: integer; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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TtySel 
TtyHilight 


txSel 


hndRuns 
ptrRuns 
run 


runs 
field 


ptrField 
hndFi eld 
fieldState 


ptrFState 
hndFState 
undol nfo 


IpLim integer; 
(tySel Pt, tySel Wd, tySel Par); 
(tyHiNil, tyHilnvert, tyHiCaret, tyHi Diminvert, 
t yHi Di mCaret); 
RECORD 

int: interval 

tySel: TtySel 

tyHilight: TtyHilight; 
END; 
“ptrRuns; 
“runs; 
RECORD 

[pFst: integer; 

font: integer; 


face: Style; 
END; 
ARRAY [0..0] OF run; 
RECORD 


coords: Rect; 
maxLen: integer 
growLen: integer 
curLen: integer 
align: QDByte 
drawPad: QDByte; 
curValue: hndData: 
maxFmts: integer 
growFmts: integer; 
curFmts: integer 
fmti nfo: hndRuns; 
protect: boolean; 

END; 

“field; 

“ptrField; 

RECORD 
select: txSel 
anchor: txSel 
selectOn: boolean; 
visCaret: boolean: 
selectRect: Rect; 
bsPtr: integer; 
space: interval 
valid: boolean; 
validLp: integer 
newSel: boolean: 
changed: bool ean; 

END; 

“fieldState; 

“ptr FState; 

RECORD 
curField: hndField; 
curFS: hndFState 
oldSel Fld: hndField; 
ol dSel FS: hndFState 
select: txSel 
endselect: txSel 
anchor: txSel 
endanchor: txSel 
oldVal Fld: hndField; 
oldVal FS: hndFState 
curLen: integer 
curValue: hndData: 
curFmts: integer 
fmtI nfo: hndRuns; 

lastOp: integer; 

END; 
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000128 ptrUndolnfo = “undol nfo 

000129 hndUndol nfo = “ptrUndol nfo 
000130 HndScrap = “ptrScrap; 

000131 PtrScrap = “*ScrapRec; 

000132 ScrapRec = RECORD 

000133 Scrapfld: Field; 
000134 isWord: boolean; 
000135 END; 

000136 


000137 8k RGGI GGG IGG IGG GGG GGG GGG IGG IGG IGG GG RE RAKES 
000138 * 

000139 * THAT'S ALL FOLKS ... 

000140 * 
Wh6WSMETICEOCOOOOSOCOOTOOOO TCE e ee ree eres rere erro errr reer rere reer, 


000142 


End of File -- Lines: 142 Characters: 4377 
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FILE: "LISA LIB 3 FIELDEDIT. TEXT" 


000001 KEK KKK KAR KK RRR KKK KKK RK KK KK KER KK RK KKK KKK KR KK ARK ERK KK KKK KER KK AKA K KKK RK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FIELDED 

000004 * 

000005 RAG IGG IGG GGG GGG IGG IGG IGG RRR RAKES 
000006 

000007 USES {$U+} FIELDEDI; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/unitStd } Unit Std, 
000016 {$U libsm/unitHz} UnitHz, 
000017 {$U libqd/ Storage} Storage, 
000018 {$U libqd/ QuickDraw} QuickDraw, 
000019 {$U li bfm/ Font Mgr} Font Mgr, 
000020 {$U libos/SysCall} SysCall, 
000021 {$U libwm/ Events} Events, 
000022 {$U libwm/ Folders} Folders, 
000023 {$U |ibsb/ WMLStd} WMLStd, 
000024 {$U |ibsb/ WMLSb} WMLSb 

000025 {$U libdb/dbenv} dbenv, 

000026 {$U libfe/FEDec} FEDec, 

000027 {$U libsu/Scrap} Scrap, 

000028 {$U libsu/ Unit Fmt} Unit Fmt 
000029 {$U libpm/ PmDec!} PmDecl, 
000030 {$U libpr/PrStdinfo} PrStdinfo, 
000031 {$U libsu/UnitCs} UnitCs, 
000032 {$U libfe/Fldut} FIdUT; 

000033 {$SETC FLDDEBUG : = FDBGOK } 
000034 {$SETC FLDSYMBOLS := FSYMOK } 
000035 

000036 CONST 

000037 MaxFontNumber = 24; 

000038 {$1 FC NOT FLDDEBUG } 

000039 fldTest = false; 

000040 {$ENDC } 

000041 

000042 VAR 

000043 {$I FC FLDDEBUG } 

000044 fldTest: bool ean; 

000045 {$ENDC } 

000046 ToModern, ToClassic: ARRAY [0..MaxFontNumber] OF - 128..127; 
000047 ScrapHnd: HndScrap; 

000048 fl dHeap: THz; 

000049 f mt Size: integer; 

000050 ul nfo: undol nfo; 

000051 SubFont: Bool ean; 

000052 SubDev: Integer; 

000053 

000054 PROCEDURE FEI nit(hz: THz; passtrpl: Ttriple; VAR errnum: integer); 
000055 

000056 PROCEDURE FETermi nate: 

000057 {$1 FC FLDDEBUG} 

000058 

000059 PROCEDURE SetFldTest(testOn: boolean); 
000060 

000061 PROCEDURE DumpFldinfo(hf: hndField; hfs: hndFState); 
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000062 {$ENDC} 

000063 

000064 PROCEDURE LdFESeg 

000065 

000066 PROCEDURE UseSubstituteFont(Substitute: Boolean; DevtoSub: Integer); 
000067 

000068 PROCEDURE SetFCoords(hf: hndField; hfs: hndFState; c: Rect); 
000069 

000070 PROCEDURE SetFAlign(hf: hndField; hfs: hndFState; a: byte) 
000071 

000072 PROCEDURE SetFPad(hf: hndField; hfs: hndFState; pad: byte) 
000073 


000074 PROCEDURE SetFProtect(hf: hndField; hfs: hndFState; p: boolean); 
000075 

000076 PROCEDURE InitFState(hf: hndField; hfs: hndFState) 

000077 

000078 FUNCTION CreateField(c: Rect; iLen, glen: integer; a: byte; pad: byte; iFmts, 
000079 gFmts: integer; fontNum integer; p: boolean): hndField; 
000080 

000081 PROCEDURE RemoveFiel d(hf: hndFi eld) 

000082 

000083 FUNCTION FmtFromlp(hf: hndField; hfs: hndFState; Ip: integer): integer 
000084 

000085 PROCEDURE FmtFromint(hf: hndField; hfs: HndFState; Int: interval 
000086 VAR Plain: boolean; VAR result: run); 

000087 

000088 PROCEDURE SetRuninterval(hf: hndField; hfs: hndFState; fontNum integer 
000089 format: integer; int: interval 

000090 VAR errNum integer) 

000091 

000092 PROCEDURE SetRunFormat(hf: hndField; hfs: hndFState; fontNum integer; 
000093 format: integer; VAR errNum: integer); 

000094 

000095 PROCEDURE UpdateRun(hf: hndField; hfs: hndFState; fontNum integer 
000096 format: integer; VAR errNum: integer); 

000097 

000098 PROCEDURE VertCoords(hf: hndField; VAR ascent, descent: integer) 
000099 

000100 PROCEDURE MoveField(hf: hndField; hfs: hndFState; dx: Point); 

000101 

000102 PROCEDURE DrawField(hf: hndField; hfs: hndFState; showSelect, 

000103 erase: bool ean) 

000104 

000105 PROCEDURE DrawFl dAt(hf: hndField;: hfs: hndFState; dx: Point; showSelect, 
000106 erase: bool ean) 

000107 

000108 PROCEDURE SetSel(hf: hndField; hfs: hndFState; IpFst: integer 

000109 [pLim integer; selType: TtySel); 

000110 

000111 PROCEDURE SelectAll (hf: hndField; hfs: hndFState; VAR t: integer) 
000112 

000113 PROCEDURE ExitField(hf: hndField; hfs: hndFState) 

000114 

000115 PROCEDURE CompactField(hf: hndField); 

000116 

000117 PROCEDURE ErrorSelect(hf: hndField; hfs: hndFState; I pFst: integer 
000118 [pLim: integer; VAR t: integer) 

000119 


000120 PROCEDURE HilightSel(hf: hndField; hfs: hndFState; fShow: bool ean) 
000121 


000122 PROCEDURE ChangeSel Hilight(hf: hndField; hfs: hndFState; toDim = bool ean) 
000123 

000124 FUNCTION LpFromX(x: integer; hf: hndField; hfs: hndFState 

000125 seltype: ttysel): integer 

000126 

000127 PROCEDURE LwFromlp(orig: integer; hf: hndField; hfs: hndFState 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 


End of 
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VAR | Word: interval; VAR FoundWord: boolean); 


FUNCTION CompressedLp(Ip: integer; hf: hndField; hfs: hndFState 


VAR valid: boolean): integer 


FUNCTION ExpandedLp(Ip: integer; hf: hndField; hfs: hndFState): integer 


PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 


RepSelect(Ip: integer; hf: hndField; hfs: hndFState); 


Select(dxy: Point; hf: hndField; hfs: hndFState; VAR nm: Rect; 
VAR t: integer); 


RepWordSelect(int: interval; hf: hndField; hfs: hndFState) 


SelectWord(dxy: Point; hf: hndField; hfs: hndFState; VAR n: rect; 
VAR t: integer); 


RepGrowSel(chlp: integer; hf: hndField; hfs: hndFState) 
GrowSel(dxy: Point; hf: hndField; hfs: hndFState; VAR n: Rect); 
CaretErased(hf: hndField; hfs: hndFState); 

StartBlink(VAR t: integer); 

BlinkCaret(hf: hndField; hfs: hndFState; VAR t: integer) 
CaretOn(hf: hndField; hfs: hndFState) 

InsCh(ch: char; hf: hndField; hfs: hndFState; VAR errNum integer) 
Backspace(hf: hndField; hfs: hndFState; VAR errNum: integer); 
Forwardspace(hf: hndField; hfs: hndFState; VAR errNum integer); 
BackWord(hf: hndField; hfs: hndFState; VAR errNum integer); 
ForwardWord(hf: hndField; hfs: hndFState; VAR errNum: integer); 
DrawScrap(VAR errnum: integer); 


CutCopyField(hf: hndField; hfs: hndFState; fCut: boolean; 
flntoScrap: boolean; VAR errNum: integer) 


PasteField(hf: hndField; hfs: hndFState; VAR errNum: integer 
pasteFmt: boolean; PasteLimit: integer) 


UndoEdit(hf: hndField; hfs: hndFState; VAR errNum integer); 


ClearField(hf: hndField; hfs: hndFState; VAR errNum: integer) 


FUNCTION qualifies(Ip: integer; hf: hndfield; hfs: hndfstate): boolean; 


KEK KKK KARA KR KK KKK KR KR KKK KK KKK KAKA KKK KK KR KK ARK ERK KKK KKK KR KKK KK KKK ERK KKK KKK KKK KKK 


x 
* 
x 


THAT'S ALL FOLKS ... 


KEK KKK KAR KAKA KK KKK KKK RK KK KK KKK KR KK KKK EK KR KK ARK KR KKK KKK KER KKK KK KKK KKK KKK KKK KKK KEK 


File -- Lines: 
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FILE: "LISA LIB 3 FILEI0. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KK KK ERK KARR KKK RK KR KK ARK KR KKK KKK KKK KR KK KKK KR KK KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FILEIO 

000004 * 

000005 RAG IGG IGG IGG IGG RRR RE RAKES 
000006 

000007 USES {$U+} FILEI0; 


000008 

000009 

000010 {$lFC isIntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 (*$U OB) /PASDEFS. OB) *) PasDefs, 
000017 (*$U OB) /MEMMAN, OB) *) Memman; 
000018 {$ELSEC } 

000019 (*$U OB): PASDEFS. OB) *) PasDefs, 
000020 (*$U OB): MEMMAN, OB) *) Memman; 
000021 {$ENDC } 

000022 

000023 CONST 

000024 

000025 

000026 Max Buf f Top = 32767; 

000027 Buf f BI ock = 512; 

000028 Nul | eae 

000029 Ctric = 3; 

000030 Left = 8: 

000031 Down = 10; 

000032 Up = 11: 

000033 Ri ght = 12; 

000034 CR = 13; 

000035 Esc = 27; 

000036 

000037 TYPE 

000038 Byte = 0.,255: 

000039 Set Of Char = SET OF Char; 

000040 Ptr = “Integer; 

000041 FileByte = + 128,,127; 

000042 Buffer = ARRAY [0..MaxBuffTop] OF Fil eByte; 
000043 Buff Ptr = “Buffer: 

000044 FileHandle = “FileDesc; 

000045 FileDesc = RECORD 

000046 Info: FILE: 

000047 Ol dFile: boolean; 
000048 NewLastBIk: boolean; 
000049 Buff: Buff Ptr; 
000050 MaxBlks, CurBlks: Integer; 
000051 BlockNr0O: Integer; 
000052 BuffTop, Buffldx: Integer; 
000053 BuffChd, ReadEOF: bool ean: 
000054 Last Blk: Integer; 
000055 END; 

000056 

000057 PROCEDURE InitFile(VAR FilePtr: FileHandle; nBlocks: Integer); 
000058 

000059 FUNCTION IAnd(I, J: Integer): Integer; 
000060 

000061 FUNCTION 1Or(I, J: Integer): Integer; 
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000062 

000063 FUNCTION IXOr(I, J: Integer): Integer 

000064 

000065 FUNCTION INot(I: Integer): Integer; 

000066 

000067 FUNCTION PeekB(P: Ptr; SkipB: Integer): Byte; 

000068 

000069 PROCEDURE PokeB(P: Ptr; SkipB: Integer; B: Byte) 

000070 

000071 PROCEDURE ToHex(P: Ptr; SkipN, NrN: Integer; VAR S: LString) 
000072 

000073 PROCEDURE WriteHex(VAR F: Text; P: Ptr; SkipN, NrN: Integer); 
000074 

000075 PROCEDURE OpenFile(VAR FilePtr: FileHandle; FileName: LString; 
000076 NewFile: bool ean) 

000077 

000078 PROCEDURE ZeroFileEnd(FilePtr: FileHandle); 

000079 

000080 PROCEDURE CloseFile(FilePtr: FileHandle; Save: boolean) 

000081 

000082 PROCEDURE GetFilePtr(FilePtr: FileHandle; VAR BytePtr: Longlnt); 
000083 

000084 PROCEDURE SetFilePtr(FilePtr: FileHandle; BytePtr: Longl nt) 
000085 

000086 PROCEDURE SkipBytes(FilePtr: FileHandle; NrBytes: Longl nt) 
000087 

000088 FUNCTION Fil eEOF(FilePtr: FileHandle): bool ean: 

000089 

000090 PROCEDURE CopySeq(InFile, OutFile: FileHandle; NrBytes: Longl nt) 
000091 

000092 PROCEDURE GetSeq(FilePtr: FileHandle; Stuff: Ptr; NrBytes: Longl nt); 
000093 

000094 PROCEDURE GetByte(FilePtr: FileHandle; VAR B: Byte); 

000095 

000096 PROCEDURE Get Word(FilePtr: FileHandle; VAR W: Integer); 

000097 

000098 PROCEDURE GetLong(FilePtr: FileHandle; VAR L: Longl nt); 

000099 

000100 PROCEDURE PutSeq(FilePtr: FileHandle; Stuff: Ptr; NrBytes: Longl nt); 
000101 

000102 PROCEDURE PutByte(FilePtr: FileHandle; B: Byte); 

000103 

000104 PROCEDURE Put Word(FilePtr: FileHandle; W Integer) 

000105 

000106 PROCEDURE PutLong(FilePtr: FileHandle; L: Longlnt); 

000107 

000108 KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK RK KK KK RK KK KK KEK KK KK EKA KKK 
000109 * 

000110 * THAT'S ALL FOLKS ... 

000111 * 


000112 KEK KKK KAR KKK KK KKK KR KR KKK KK KKK KR KR KKK EK KR KK ARK KR KKK KK RRR RK KR KKK RK KR KKK KAKA KKK KEK 


000113 


End of File -- Lines: 113 Characters: 3042 
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FILE: 


000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 


Apple Lisa Computer Technical 


Information 


"LISA LIB 3 FILERCOM. TEXT" 


KEK KKK KAR KKK KK KKK KKK RK KK KK ERK KAKA KKK RR KR KK ARK KR KKK KKK KKK KR KK KKK ERK KKK KKK KKK KKK 


x 


* APPLE LISA DESKTOP LIBRARY 


INTERFACES (Version 3.0) : FILERCOM 


KEK KKK KARA KR KK KKK KKK RK KK KK KR KK RK RRR KEK KR KK ARK KR KKK KKK KER KK RK K KKK KKK KKK KKK KKK KKK 


USES {$U+} FILERCOM; 


INTRINSIC SHARED; 
INTERFACE 


{$U libos/SysCall } 
{$U libos/ PSysCall } 
{$U libsm/ Unit Std } 
U libsm/ Unit Hz } 
U libqd/ Storage } 
U libqd/QuickDraw } 
U libgd/ Graf Util } 
U libsb/ Wml Std } 
U libsb/ Wml Sb } 
U li bf m/ Font Mgr } 
U |i bwm/ Events } 
U |i bwm/ wi ndows } 
U |i bwm/ folders } 
U libsu/ Scrap } 
SETC fcDebug = 0 
SETC fcSymbols y 


CONST 
scrapRef 
cmAppl nfo 
cm conl nfo 
nameSeperator 
fceNoErrors 
f ceAborted 
fceBadEventTyp 
f ceBadReason 
f ceCant Read 
fceCant Write 
fcelnUse 
fceNoMemory = 4030 


sx 


Dono om om Oo WoW WoW mm at 
W 
> 
o 
nN 
uo 


SysCall, 
PSysCall, 
Unit Std, 
Unit Hz, 
Storage, 
QuickDraw 
Graf Util, 
Wml Std, 
Wml Sb, 
Font Mgr, 
Events, 
Windows, 
Folders, 
Scrap; 


Ok } 


fceOut Of DiskSpace = 4031; 


f ceBadLDSN = 4032; 
fceBadPassword = 4033; 


fceDuplicateName = 890 


fcelnvalidParam = 971; 
fceNameNot Found = 972; 


cmdCl ose = 1001; 
cmdCl osAl | = 1002; 
deskTool = 0; 
writeTool = 1; 
graphTool = 2; 
mat ri xTool = 3; 
drawTool = 4; 
listTool = 5; 
ball sTool = 63 
manual Tool = 7; 
proj ectTool = 8; 
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000062 ter mEmTool = 10; 

000063 confi gTool = 11; 

000064 cal cTool = 12; 

000065 clockTool = 13; 

000066 MwriteTool = 14; 

000067 Mpai nt Tool = 15; 

000068 MdrawTool = 16; 

000069 maxKnownTool = 16: 

000070 iconWi dth = 48; 

000071 i conHt = 32; 

000072 nil Kind = 0; 

000073 fileKind =: 1 

000074 deskKi nd = 2; 

000075 fol derkind = 3; 

000076 docKind = 4; 

000077 docPad = 53 

000078 trashKind = 6; 

000079 printKind = 7; 

000080 cal cKind = 8: 

000081 trayKind = 9; 

000082 computerKind = 10; 

000083 comp2Ki nd = 11; 

000084 i nBox1Ki nd = 12; 

000085 i nBox2Ki nd = 13; 

000086 out Box1Ki nd = 14; 

000087 out Box2Ki nd = 15; 

000088 fol der Pad = 16: 

000089 cli pBdKi nd = 17; 

000090 clockKind = 19; 

000091 letterKind = 20; 

000092 letterPad = 21; 

000093 tool Kind = 24; 

000094 diskKind = 25: 

000095 disk1Kind = 26: 

000096 disk2Kind = 27; 

000097 drawer Kind = 28; 

000098 profileKind = 29; 

000099 priamKind = 30; 

000100 slot Kind = 31; 

000101 slot1Kind = 32; 

000102 slot2Kind = 33: 

000103 slot3Kind = 34; 

000104 Mdoc Ki nd = 35: 

000105 Mdi skKi nd = 36: 

000106 last Kind = 36; 

000107 

000108 TYPE 

000109 Fil i ngCmd = LONGI NT; 

000110 FilerOp = (fcClose, fcCopy, fcDfClose, fcNone, fePrint, fcPut, 
000111 fcResume, fcShred, fcSuspend, fcTerminate, 
000112 fcNameToPrefix, fcPrefixToName, fcDuplcon, fcMakeTool ); 
000113 FRepl y = (dfClosed, dfNotClosed, docClosd, docNotClosed, docXfered, 
000114 docNotXfered, InitFailed); 

000115 FReason = (all OK, badData, cantConvert, cantRead, cantWrite, 
000116 dirtyDoc, internalError, needToConvert, newer Doc, 
000117 noDiskSpace, noMemory, noMoreDocs, okButNoMore, 
000118 docPutBack, aUserAbort, wrongPassword); 
000119 FilerExt = RECORD 

000120 theFlrOp: FilerOp; 

000121 theErr: INTEGER; 

000122 theOffset: INTEGER: 

000123 theDf: INTEGER; 

000124 thePassword: E_ Name; 

000125 thePrefix: Pathname; 

000126 theResult: Pathname; 

000127 END; 


Apple Lisa Desktop Library 3.0 Pascal Interfaces -- 34 of 196 


000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
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000167 
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000169 
000170 
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000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
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FCopyOp = (fcDocCopy, fcDocMove, fcDocBackup) 
Obj ect Ki nd = nilKind..]astKind 
Tl conRef = RECORD 
kind: Obj ectKind; 
tool! D: LONGI NT; 
userName: STRING[ 80]; 
password: E_Name 
diskName: Pathname; 
END; 
Pl conRef = “TlconRef 
HI conRef = *PlconRef 
TAppl nfo = RECORD 
window: WindowPtr: 
proc: INTEGER 
END; 
PAppl nfo = “TAppl nfo 
HAppl nfo = “*PAppl nfo; 
hFilerext = “pFilerExt; 
pFilerExt = “FilerExt 
Repl yPtr = *Reply; 
Repl y = RECORD 
theReply: FReply; 
theReason: FReason: 
END; 
VAR 
iconData: ARRAY [Obj ectKind] OF CHAR 
iconMask: ARRAY [Obj ectKind] OF CHAR 
iconOverlay: ARRAY [deskTool..maxKnownTool] OF CHAR 
i conBoxes: ARRAY [Obj ectKind] OF Rect; 
tinyData: ARRAY [Obj ectKind] OF CHAR 
tinyMask: ARRAY [Obj ectKind] OF CHAR 
tinyOverlay: ARRAY [deskTool..maxKnownTool] OF CHAR 


PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


Apple Lisa 


CopyDoc(VAR error: INTEGER; fromPrefix, toPrefix: Pathname 
useLdsn: INTEGER; theOp: FCopyOp; VAR docSize: LONGI NT); 


DoFilingCmd(whichCmd: FilingCmd); 


Get AddParms(VAR error: INTEGER; theEvent: EventRecord 
VAR theFilerExt: FilerExt); 


Tell Filer(VAR error: INTEGER; what: FReply; why: FReason; 
myFolder: WindowPtr); 


NameToPrefix(VAR err, offset: INTEGER; myFolder: WindowPtr 
name: Pathname; VAR prefix: Pathname); 


PrefixToName( VAR err, offset: INTEGER; myFolder: WindowPtr; 
prefix: Pathname; VAR name: Pathname); 


StartlconRef(VAR err: INTEGER; myWindow: WindowPtr); 
Addi conRef(iconinfo: TlconRef); 

Endl conRef; 

DrawRefScrap(VAR err: INTEGER); 


Readi conRefs(VAR err: INTEGER; VAR proc: ProcessID 
VAR window: WindowPtr; VAR identity: TiconRef; 
1DProc: TProc); 


CopyDiskfile(VAR err: INTEGER; source, destination: Pathname 


bufrAdrs, bufrSize: LONGINT; theOp: FCopy0Op; 
VAR osErr: INTEGER); 
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PROCEDURE I nit FC 


KEK KKK KAR KK RK RK KKK RRR KKK KKK RK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KKK KKK EK 


x 


x THAT'S ALL FOLKS ... 


KEK KKK KKK KK RRR KKK KKK RK KK KK KKK KR KR KKK EK KR KK ARK KR KKK KKK KER KKK KK KKK KR KKK KAKA KKK KEK 


File -- Lines: 202 Characters: 6379 
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FILE: "LISA LIB 3 FLDUT. TEXT" 


000001 KEK KKK KAKA KR KR KKK KKK RK KR KK ERK KR KR KKK RK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KKK KAKA KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FLDUT 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG GGG IGG IGG IGG REE RAKES 
000006 

000007 USES {$U+} FLDUT; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/unitstd. obj } UnitStd 
000016 {$U libsm/unithz. obj } UnitHz 
000017 {$U libqd/ QuickDraw} QuickDraw 
000018 {$U libfm/ FontMgr} Font Mgr 
000019 {$U libqd/ Storage} Storage 
000020 {$U libos/SysCall} SysCall 
000021 {$U libwm/ Events} Events, 
000022 {$U libdb/dbenv} dbenv 

000023 {$U libfe/FEDec} FEDec 

000024 {$U libpm/ pmdecl} pmdecl 
000025 {$U libpr/PrStdinfo} PrStdinfo 
000026 {$U libsu/unitfmt. obj } Unitf mt 
000027 {$U libsu/unitcs. obj } UnitCs 
000028 {$U libsu/scrap. obj} Scrap; 
000029 {$SETC FLDUTDBG : = FDBGOK} 
000030 

000031 TYPE 

000032 PFI dUT = “TFI UT; 
000033 TFI dUT = RECORD 

000034 cs: Tes; 
000035 UTfield: hndfield; 
000036 END; 

000037 

000038 FUNCTION CreateFl dUt(StreamHeap: THz): TB; 
000039 


000040 PROCEDURE SeqLpdFld(Lpd: TLpd; VAR achad: Tachad) 

000041 {$l FC FLDUTDBG} 

000042 

000043 PROCEDURE PxFIdUT(hcs: thcs); 

000044 {$ENDC} 

000045 

000046 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK RK KK KKK KK KKK KKK 
000047 = * 

000048 * THAT'S ALL FOLKS .. 

000049 * 


000050 KEK KKK KKK KK RK KKK KKK KR KKK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK ERK KKK KKK KKK KEK 


000051 


End of File -- Lines: 51 Characters: 1275 
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000001 KEK KKK KAR KKK KKK KKK KR KKK KK ERK KAKA KKK EK KR KK ARK KR KKK KK KKK K KK KK KKK KKK KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FMGRUTIL 

000004 * 

000005 REG IGG IGG IGG IGG GGG IGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} FMGRUTIL; 


000008 

000009 

000010 {$SETC fm0S := TRUE} 

000011 

000012 INTRINSIC 

000013 

000014 INTERFACE 

000015 

000016 USES 

000017 {$U libsm/ UnitStd} UnitStd 

000018 {$U libsm/ UnitHz} UnitHz 

000019 {$U libos/SysCall} SysCall 

000020 {$U libqd/ QuickDraw} QuickDraw 

000021 {$U li bfm/ Font Mgr} Font Mgr 

000022 {$U libqd/ Storage} Storage 

000023 {$SETC fmdebug := fdbgok} 

000024 {$SETC fmSymbols := fsymok} 

000025 

000026 FUNCTION GetIlcon(fam: Tfam; cc: TCc; VAR rSrc: Rect; VAR bmSrc: BitMap; 
000027 VAR cError: TC): TF; 

000028 

000029 PROCEDURE Drawicon(fam Tfam rDst: Rect; cc: TCc; cmode: TC 
000030 VAR cError: TC); 

000031 

000032 PROCEDURE GetPattern(fam: Tfam; ccPat: TCc; VAR pat: Pattern; 
000033 VAR cError: TC); 

000034 

000035 PROCEDURE GetCursor(fam: Tfam; ccData, ccMask: TCc; VAR curse: Cursor; 
000036 VAR cError: TC) 

000037 


000038 REG GGG IGG IGG IGG ICG IGG GGG IGG IGG GGG RRR RAKES 
000039 * 

000040 * THAT'S ALL FOLKS ... 

000041 * 

000042 REG I GGG IGG IGG IGG IGG IGG IGG RGR RE KARE 


000043 


End of File -- Lines: 43 Characters: 1176 
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FILE: "LISA LIB 3 FOLDERS. TEXT" 


000001 KEK KKK KAR KK RK K KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK ERK KR KK KKK KARR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FOLDERS 

000004 * 

000005 RR GGG IGG IGG IGG IGG ICG IGG GGG GGG IGG IGG RRR RAKES 
000006 

000007 USES {$U+} FOLDERS; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U li bhw/ HW nt } HWint, 

000016 {$U libsm/ Unit Std } UnitStd, 
000017 {$U libsm/ UnitHz } UnitHz, 
000018 {$U libqd/ Storage } Storage, 
000019 {$U libqd/QuickDraw } QuickDraw, 
000020 {$U |i bf m/ Font Mgr } Font Mgr, 
000021 {$U libos/SysCall } SysCall, 
000022 {$U |i bwm/ Events } Events, 
000023 {$1 FC wm0S } 

000024 {$U |i bpm/ PmDec! } PmDecl, 
000025 {$U |i bpm/ Pmm } Pmm, 

000026 {$ENDC } 

000027 {$U |i bwm/ Wi ndows } Windows; 
000028 

000029 CONST 

000030 maxWindWidth = 720; 

000031 maxWindHei ght = 364; 

000032 minWindWidth = 50; 

000033 minWindHei ght = 14; 

000034 nol con = 255; 

000035 

000036 TYPE 

000037 Wi ndowl nfo = RECORD 

000038 visible: BOOLEAN; 
000039 hasTab: BOOLEAN: 
000040 okMove: BOOLEAN; 
000041 okGrow: BOOLEAN; 
000042 okFront: BOOLEAN; 
000043 okClose: BOOLEAN; 
000044 okActivate: BOOLEAN; 
000045 END; 

000046 

000047 PROCEDURE BeginUpdate(folder: WindowPtr); 
000048 

000049 PROCEDURE Dial ogHeight(height: INTEGER; fUpdate: BOOLEAN); 
000050 

000051 PROCEDURE DisposeFolder(folder: WindowPtr); 
000052 

000053 PROCEDURE EndUpdate(folder: WindowPtr); 
000054 

000055 PROCEDURE FlushInput( window: WindowPtr); 
000056 

000057 PROCEDURE FlushW ndow( window: WindowPtr); 
000058 

000059 PROCEDURE FlushProcess(process: ProcesslID); 
000060 

000061 PROCEDURE FolderSize(folder: WindowPtr; width, height: INTEGER; 
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000062 fUpdate: BOOLEAN) 

000063 

000064 FUNCTION GetFldrRefCon(folder: WindowPtr): Longl nt; 

000065 

000066 PROCEDURE GetFldrTitle(folder: WindowPtr; VAR title: Str255) 
000067 

000068 PROCEDURE Get Wi ndinfo(window: WindowPtr; VAR info: Window! nfo) 
000069 

000070 PROCEDURE GiveControl(event: EventRecord); 

000071 

000072 PROCEDURE GiveWndow( window: WindowPtr; toProcess: Processld) 
000073 

000074 PROCEDURE HeDied(deadProcess: ProcesslD); 

000075 

000076 PROCEDURE HideFolder(folder: WindowPtr); 

000077 

000078 PROCEDURE HiliteTab(folder: WindowPtr;: fHiLite: BOOLEAN); 
000079 

000080 PROCEDURE | mDyi ng 

000081 

000082 PROCEDURE | nit WM; 

000083 

000084 PROCEDURE InvalidateRgn(folder: WindowPtr; rgn: RgnHandl e) 
000085 

000086 PROCEDURE Inval Rect(badRect: Rect); 

000087 

000088 PROCEDURE I nval Rgn(badRgn: RgnHandle); 

000089 

000090 PROCEDURE LocateDialog(top, height: integer); 

000091 

000092 PROCEDURE MakeFldrActive(folder: WndowPtr; reasonWhy: Longl nt); 
000093 

000094 PROCEDURE MakeTopActi ve 

000095 

000096 PROCEDURE MoveFolder(folder: WindowPtr; hGlobal, vGlobal: INTEGER) 
000097 

000098 FUNCTION NewFolder(folderRect: Rect; title: Str255; visible: BOOLEAN 
000099 behind: WndowPtr; refCon: Longlnt; process: Processld; 
000100 whichl con: INTEGER; overlay: INTEGER): WindowPtr 
000101 

000102 PROCEDURE Open\WM; 

000103 

000104 PROCEDURE SetFldrTitle(folder: WindowPtr; title: Str255) 
000105 

000106 PROCEDURE SetFidrRefCon(folder: WindowPtr; data: Longl nt); 
000107 

000108 PROCEDURE Set Windinfo(window: WindowPtr; VAR info: Window nfo) 
000109 

000110 PROCEDURE ShowFolder(folder: WindowPtr); 

000111 

000112 PROCEDURE TakeControl(event: EventRecord; keepMenus, keepDialog: BOOLEAN); 
000113 

000114 PROCEDURE TakeWi ndow( window: WindowPtr); 

000115 

000116 PROCEDURE ValidRect(goodRect: Rect); 

000117 

000118 PROCEDURE ValidRgn(goodRgn: RgnHandl e); 

000119 

000120 PROCEDURE WMCI osePicture 

000121 

000122 PROCEDURE WMKil1| Picture( window: WindowPtr) 

000123 

000124 PROCEDURE WMKil! Process(process: Process! D) 

000125 

000126 PROCEDURE WMOpenPicture( window: WindowPtr) 

000127 
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PROCEDURE WMStartDoc( window: WindoWPtr); 


KEK KKK KAR KK RK K KKK KKK RK KR KK KKK KR KK KKK EK KR KK ARK KR KKK KK RRR RK KR KK KKK KKK RK KAKA KKK KEK 


x 


* THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK KK KR KK ARK ER KKK KKK KER KKK KK KKK KR KKK KAKA KKK KEK 


File -- Lines: 135 Characters: 3537 
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FILE: "LISA LIB 3 FONTMGR. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KR KKK KK KR KK KKK KR KKK KKK KKK K KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FONTMGR 

000004 * 

000005 RAG IGG GGG IGG GGG IGG IGG GGG RRR RAKES 
000006 

000007 USES {$U+} FONTMGR; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libqd/ QuickDraw} QuickDraw, 
000016 {$U libsm/ UnitStd} UnitStd, 
000017 {$U libsm/ UnitHz } UnitHz, 
000018 {$U libos/SysCall} SysCall, 
000019 {$U libos/PSysCall} PSysCall; 
000020 {$SETC fmdebug := FALSE} 
000021 {$SETC fmSymbols := fsymok} 
000022 {$setC fTraceFM := fTrace} 
000023 

000024 CONST 

000025 ccMax = 255; 
000026 ccBS = 8; 

000027 ccHT = 9: 

000028 ccLF = 10; 

000029 ccVT = 11; 

000030 ccFF = 12; 

000031 ccCR = 13: 

000032 ccESC = 27: 

000033 ccPara = 166; 
000034 ccSec = 164; 
000035 ccCopy = 169; 
000036 ccReg = 168; 
000037 ccTM = 170; 
000038 ccDeg = 161; 
000039 ccDag = 160; 
000040 ccBul = 165: 
000041 ccPound = 163; 
000042 ccElip = 201; 
000043 ccSysApple = 202; 
000044 ccLisaLogo = 0; 

000045 ccCheck = 142; 
000046 ccApple = 143; 
000047 ccLreg = 0; 

000048 ccLalt = 1; 

000049 ccLdash = 23 

000050 ccRreg = 3; 

000051 ccRalt = 4; 

000052 ccRdash = 53 

000053 ccHreg = 6; 

000054 ccHalt Sh 

000055 ccHdash = 8: 

000056 ccVreg = 9; 

000057 ccValt = 10; 

000058 ccVdash = 11; 

000059 ccG90f = 12: 

000060 ccG90c = 13; 

000061 ccG45f = 14; 


Apple Lisa Desktop Library 3.0 Pascal Interfaces -- 42 of 196 


000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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ccG45c¢ = 15; 
ccWhite = 16; 
ccXLtGray = 17; 
ccLtGray = 18; 
ccMedGray = 19; 
ccGray = 20; 
ccDkGray = 21; 
ccBl ack = 22: 
ccNil = 255; 
ccWhi t eMask = 255; 
sysText = 0; 

wmf ont = 1: 
sysPat = 2! 
sysCursor = 3; 
tilel2 = 4; 
tilel8 = 5; 
tile24 = 6; 
pl5Tile = 7; 
pl2Tile = 8; 
plotile = 9; 
cent12 = 10; 
cent18 = 11; 
cent24 = 12; 
pl2cent = 13; 
pl0cent = 14; 
elite = 15; 
courier = 16; 
boldface = 17; 
cal cFont = 18; 
p20Tile = 19; 
marker = 20; 
tile7 = 21; 

fl conFont = 22; 
sysLogo = 23; 
devScreen = 0; 
famLst = 23; 
substitution = - 3024: 
Bi gCache = 98000; 
Hi ghCache = 45000; 
LowCache = 30000; 
{$1FC NOT f mdebug} 

f debug = FALSE; 
fdebugl = FALSE; 
f debug2 = FALSE; 
f debug3 = FALSE; 
fdebug4 = FALSE; 
fdebug5 = FALSE; 
f debug6 = FALSE; 
f debug? = FALSE; 
f debug8 = FALSE; 
fdebug9 = FALSE; 
f debug10 = FALSE; 
fdebugll = FALSE; 
fdebugl2 = FALSE; 
f debug13 = FALSE; 
fdebugl4 = FALSE; 
fdebug15 = FALSE; 
f debug16 = FALSE; 
fdebug17 = FALSE; 
f debug18 = FALSE; 
f debug19 = FALSE; 
f debug20 = FALSE; 
fdebug21 = FALSE; 
fdebug22 = FALSE; 
fdebug23 = FALSE; 
fdebug24 = FALSE; 
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000156 
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000171 
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000174 
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000180 
000181 
000182 
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f debug25 
f debug26 
fdebug27 
f debug28 
f debug29 
f debug30 
f debug31 
f debug32 
f debug33 
fdebug34 
f debug35 
f debug36 
f debug37 
f debug38 
f debug39 
f debug40 
{$ENDC} 


TYPE 
TCc 
TStr30 
TFam 
TDev 
TEdev 
TEwhcl 
TEskcl 


TAdev 


TFntid 


TLfntid 


FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 
FALSE; 


0..255; 

STRI NG[ 30]; 

TC; 

- 128..127; 

(edevScreen, edevDotMx, edevHDotMx, edevTyper, edevLaser, 
edevl, edev2); 

(ewhcl 20, ewhcl15, ewhcl12, ewhcl10, ewhcl PS, ewhcl MF, 
ewhcl MP, ewhcl LCS) 

(eskcI MPPS, eskc| MPFP, eskcI MFR, eskcI MFI, eskcl Apple, 
eskcl FQume, eskcl PQume) ; 

PACKED RECORD 

CASE BOOLEAN OF 


TRUE: 

(dev: TDev); 
FALSE: 

(fOffline: TF; 


CASE edev: TEdev OF 
edevScreen, edevLaser: 


edevDot Mx, edevHDotMx: 
(f HiRes: TF; 
fPortrait: TF); 
edevTyper: 
(f Spoke: TF; 
ewhcl: TEwhcl); 
edevl, edev2: 
()); 
END; 
PACKED RECORD 
fam: TFam; 
seteface: Style; 
END; 
PACKED RECORD 
fam TFam 
seteface: Style; 
CASE BOOLEAN OF 


TRUE: 

(dev: TDev); 
FALSE: 

(fOffline: TF; 


CASE edev: TEdev OF 
edevScreen, edevLaser: 


edevDot Mx, edevHDot Mx: 
(f HiRes: TF; 
fPortrait: TF); 
edevTyper: 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
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TWd 
TMpccwid 
TPmpccwid 
THmpccwi d 
TPcharStyle 
TCharstyle 


TMpefaceb 
TModifier 


VAR 

{$I FC fmdebug} 
f debug: 
fdebugl: 
fdebug2: 
f debug3: 
fdebug4: 
fdebug5: 
f debug6: 
fdebug?7: 
f debug8: 
fdebug9: 
fdebugl0: 
fdebugll: 
fdebugl2: 
fdebugl3: 
fdebugl4: 
fdebug15: 
fdebuglé: 
fdebugl7: 
fdebug18: 
fdebugl9: 
fdebug20: 
fdebug21: 
fdebug22: 
fdebug23: 
fdebug24: 
fdebug25: 
fdebug26: 
fdebug27: 
fdebug28: 
fdebug29: 
f debug30: 
fdebug31: 
f debug32: 
f debug33: 
fdebug34: 
fdebug35: 
f debug36: 
f debug37: 
f debug38: 


Apple Lisa Desk 


(f Spoke: TF; 
ewhcl: TEwhcl); 
edevl, edev2: 
()); 
END; 
0..255: 
PACKED ARRAY [TCc] OF TWid:; 
“TMpccwi d; 
“TPmpccwi d; 
“TChar Style; 
PACKED RECORD 
hks: TH; 
hmpccwid: THmpccwid; 
bBold: TB; 
bltalic: TB; 
bUnderline: 
bShadow: TB; 
cExtra: TC; 
END; 
ARRAY [Styleltem] OF TB 
RECORD 
seteface: Style; 
mpefaceb: TMpefaceb; 
END; 


TB; 
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000260 f debug39: TF; 

000261 fdebug40: TF; 

000262 {$ENDC} 

000263 Initial CacheSize: TL; 

000264 Mi nCache: TL; 

000265 cRef numli b: TC 

000266 

000267 PROCEDURE FMinit(VAR cError: TC); 

000268 

000269 PROCEDURE FMOpen(VAR cError: TC); 

000270 

000271 PROCEDURE FMCloseLib( VAR cError: TC); 

000272 

000273 PROCEDURE FMCacheSize(| CacheSize: TL; VAR cError: TC) 

000274 

000275 FUNCTION FMAddFont(str30: TStr30; modifier: TModifier; dev: TDev 
000276 VAR cError: TC): TFam 

000277 

000278 PROCEDURE FMDelfont(Ifntid: TLfntid); 

000279 

000280 FUNCTION FMSwapFont(VAR Ifntid: TLfntid; VAR cError: TC): TPcharstyle 
000281 

000282 PROCEDURE FMLockFont(VAR Ifntid: TLfntid: flock: TF; VAR cError: TC) 
000283 

000284 FUNCTION FMFont Metrics(VAR Ifntid: TLfntid; VAR finfo: FontIinfo 
000285 VAR cError: TC): TF; 

000286 

000287 FUNCTION FMFontWdths(VAR Ifntid: TLfntid; VAR hmpccwid: THmpccwi d; 
000288 VAR dExtra: TB; VAR cError: TC): TF; 
000289 

000290 PROCEDURE FMMapFont(VAR Ifntid: TLfntid; VAR cError: TC); 

000291 {$l FC fmdebug} 

000292 

000293 PROCEDURE FMDebug(fdbg: TF); 

000294 

000295 PROCEDURE FMDumpHeur Tabl e; 

000296 {$ENDC} 

000297 

000298 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KK KKK KKK RK KK KKK KK KK EKA KKK 
000299 * 

000300 * THAT'S ALL FOLKS .. 

000301 * 


000302 KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK RR KKK KKK KER KKK KKK RK ERK KKK KKK KKK KEK 


000303 


End of File -- Lines: 303 Characters: 8457 
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FILE: "LISA LIB 3 FPLIB. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KR KK KKK KR KR KKK RK KR KK ARK KR KKK KKK KKK K KAKA KKK KARR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : FPLIB 

000004 * 

000005 RGGI GGG IGG IGG IGG IGG GGG IGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} FPLIB; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 {$C Copyright 1983, 1984, Apple Computer Inc. } 
000015 

000016 CONST 

000017 $1 GDI GLEN = 20: 

000018 DECSTRLEN = 255; 

000019 

000020 TYPE 

000021 Single = real 

000022 Double = ARRAY [0..3] OF integer 
000023 Comp = ARRAY [0..3] OF integer 
000024 Ext ended = ARRAY [0..4] OF integer 
000025 SigDig = string[$IGDI GLEN] 

000026 DecStr = string[DECSTRLEN] 

000027 Deci mal = RECORD 

000028 sgn: 0..1; 

000029 exp: integer; 

000030 sig: SigDig 

000031 END; 

000032 Environ = integer 

000033 RoundDir = (TONEAREST, UPWARD, DOWNWARD, TOWARDZERO); 
000034 Rel Op = (GT, LT, GL, EQ, GE, LE, GEL, UNORD) 
000035 Exception = (INVALID, UNDERFLOW, OVERFLOW, DIVBYZERO, I NEXACT); 
000036 NumCl ass = (SNAN, QNAN, INFINITE, ZERO, NORMAL, DENORMAL); 
000037 DecForm = RECORD 

000038 style: (FLOATDECI MAL, FIXEDDECI MAL); 
000039 digits: integer 

000040 END; 

000041 

000042 PROCEDURE AddS(x: Single; VAR y: Extended); 
000043 

000044 PROCEDURE AddD(x: Double; VAR y: Extended); 
000045 

000046 PROCEDURE AddC(x: Comp; VAR y: Extended); 
000047 

000048 PROCEDURE AddX(x: Extended; VAR y: Extended); 
000049 

000050 PROCEDURE SubS(x: Single; VAR y: Extended); 
000051 

000052 PROCEDURE SubD(x: Double; VAR y: Extended); 
000053 

000054 PROCEDURE SubC(x: Comp; VAR y: Extended); 
000055 

000056 PROCEDURE SubX(x: Extended; VAR y: Extended); 
000057 

000058 PROCEDURE Mul S(x: Single; VAR y: Extended); 
000059 

000060 PROCEDURE Mul D(x: Double; VAR y: Extended); 
000061 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


Apple 


Lisa Computer Technical Information 


Mul C(x: 
Mul X(x: 
DivS(x: 
Di vD(x: 
DivC(x: 


DivX(x: 


FUNCTION CmpX(x: 


FUNCTION Rel X(x, 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


12X(x: 
$2X(x: 
D2X(x: 
C2X(x: 
X2X(x: 
X21 (x: 
X2S(x: 
X2D(x: 
X2C(x: 
L2X(x: 


X2L(x: 


$2Dec(f: 
D2Dec(f: 
C2Dec(f: 
X2Dec(f: 
Dec2S(x: 
Dec2D(x: 


Dec2C(x: 


Dec2X(x 


Str2Dec 


Dec2Str 


S2Str(f: 
D2Str(f: 
C2Str(f: 
X2Str(f: 


Comp; VAR y: Extended); 

Extended; VAR y: Extended) 

Single; VAR y: Extended); 

Double; VAR y: Extended); 

Comp; VAR y: Extended); 

Extended; VAR y: Extended); 

Extended; r: RelOp; y: Extended): boolean; 
y: Extended): Rel Op 

integer; VAR y: Extended); 

Single; VAR y: Extended) 

Double; VAR y: Extended); 
Comp; VAR y: Extended); 

Extended; VAR y: Extended) 

Extended; VAR y: integer) 

Extended; VAR y: Single) 

Extended; VAR y: Double) 

Extended; VAR y: Comp); 

longint; VAR y: Extended) 

Extended; VAR y: longi nt) 
DecForm, x: Single; VAR y: Decimal); 
DecForm, x: Double; VAR y: Decimal); 
DecForm; x: Comp; VAR y: Decimal); 
DecForm;, x: Extended; VAR y: Decimal); 
Decimal; VAR y: Single); 
Decimal; VAR y: Double); 
Decimal; VAR y: Comp); 
: Decimal; VAR y: Extended) 


(s: DecStr; VAR index: integer; VAR d: Deci mal 
VAR ValidPrefix: boolean); 


(f: DecForm d: Decimal; VAR s: DecStr); 
DecForm; x: Single; VAR y: DecStr); 
DecForm, x: Double; VAR y: DecStr); 
DecForm; x: Comp; VAR y: DecStr); 


DecForm; x: Extended; VAR y: DecStr); 
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000128 

000129 PROCEDURE Str2S(x: DecStr; VAR y: Single); 
000130 

000131 PROCEDURE Str2D(x: DecStr; VAR y: Double); 
000132 

000133 PROCEDURE Str2C(x: DecStr; VAR y: Comp); 

000134 

000135 PROCEDURE Str2X(x: DecStr; VAR y: Extended); 
000136 

000137 PROCEDURE RemX(x: Extended; VAR y: Extended; VAR quo: integer) 
000138 

000139 PROCEDURE SqrtX(VAR x: Extended); 

000140 

000141 PROCEDURE RintX(VAR x: Extended); 

000142 

000143 PROCEDURE NegX(VAR x: Extended); 

000144 

000145 PROCEDURE AbsX(VAR x: Extended); 

000146 

000147 PROCEDURE CpySgnX(VAR x: Extended; y: Extended); 
000148 

000149 PROCEDURE NextS(VAR x: Single; y: Single); 
000150 

000151 PROCEDURE NextD(VAR x: Double; y: Double); 
000152 

000153 PROCEDURE NextX(VAR x: Extended; y: Extended); 
000154 

000155 FUNCTION ClassS(x: Single; VAR sgn: integer): NumClass 
000156 

000157 FUNCTION ClassD(x: Double; VAR sgn: integer): NumClass 
000158 

000159 FUNCTION ClassC(x: Comp; VAR sgn: integer): NumClass 
000160 

000161 FUNCTION ClassX(x: Extended; VAR sgn: integer): NumClass 
000162 

000163 PROCEDURE Scal bX(n: integer; VAR y: Extended); 
000164 

000165 PROCEDURE LogbX(VAR x: Extended); 

000166 

000167 PROCEDURE SetRnd(r: RoundDir); 

000168 

000169 PROCEDURE SetEnv(e: Environ); 

000170 

000171 FUNCTION GetRnd: RoundDir; 

000172 

000173 PROCEDURE GetEnv(VAR e: Environ); 

000174 

000175 FUNCTION TestXcp(x: Exception): bool ean; 

000176 

000177 PROCEDURE SetXcp(x: Exception; OnOff: boolean); 
000178 

000179 FUNCTION TestHIt(x: Exception): boolean; 

000180 

000181 PROCEDURE SetHIit(x: Exception; OnOff: boolean); 
000182 

000183 PROCEDURE ProcEntry(VAR e: Environ) 

000184 

000185 PROCEDURE ProcExit(e: Environ); 

000186 

000187 PROCEDURE Log2X(VAR x: Extended); 

000188 

000189 PROCEDURE LnX(VAR x: Extended); 

000190 

000191 PROCEDURE Ln1X( VAR x: Extended); 

000192 

000193 PROCEDURE Exp2X(VAR x: Extended); 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 


End of 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


Apple Lisa Computer Technical 


Information 


ExpX(VAR x: Extended); 

Exp1X(VAR x: Extended); 

Xpwrl(i: integer; VAR x: Extended) 
XpwrY(y: Extended; VAR x: Extended); 
Compound(r, n: Extended; VAR x: Extended); 
Annuity(r, n: Extended; VAR x: Extended); 
AtanX(VAR x: Extended); 

SinX(VAR x: Extended); 

CosX(VAR x: Extended); 

TanX(VAR x: Extended); 


RandomX(VAR x: Extended); 


FUNCTION GetHitAddress: longint; 


PROCEDURE 


PROCEDURE 


SetHl tAddress(HitAddress: longint); 


InitFPLib; 


FUNCTION SANE Environ: | ongint; 


KEK KKK KKK KKK KK KKK KKK RK KK KK KKK KR KKK RK EK KR KK ARK KR KKK KK KR E RK KR KK KKK KR KR KKK KK KKK KKK 


x 
x 
x 


THAT'S ALL FOLKS ... 


KEK KKK KKK KK RRR KKK KKK RK KR KKK RK KR KR KKK KK KR KK ARK ERK KK KK KKK RK KR KK KKK KR KR KKK KK KKK KEK 
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FILE: "LISA LIB 3 GRAFUTIL. TEXT" 


000001 KEK KKK KKK KK RK KKK KKK KR KK A KK KR KK AKA KKK RK KR KK KKK KR KKK KKK KER KAKA KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : GRAFUTIL 
000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KEK KK KKK KK KKK KKKK 
000006 

000007 USES {$U+} GRAFUTIL; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES {$U libqd/QuickDraw } QuickDraw 
000015 

000016 TYPE 

000017 Fixed Longl nt; 

000018 Int64Bit RECORD 

000019 hilLong: Longl nt; 

000020 loLong: Longl nt; 

000021 END; 

000022 

000023 FUNCTION BitAnd(long1, long2: Longl nt): LonglI nt; 

000024 

000025 FUNCTION BitOr(long1, long2: Longlnt): Longl nt 

000026 

000027 FUNCTION BitXor(long1, long2: Longl nt): LonglI nt; 

000028 

000029 FUNCTION BitNot(long: Longl nt): Longl nt; 

000030 

000031 FUNCTION BitShift(long: Longl nt; count: INTEGER): LonglInt 
000032 

000033 FUNCTION BitTst(bytePtr: QDPtr; bitNum: Longl nt): BOOLEAN; 
000034 

000035 PROCEDURE BitSet(bytePtr: QDPtr; bitNum: Longlnt); 

000036 

000037 PROCEDURE BitCilr(bytePtr: QDPtr; bitNum: Longl nt); 

000038 

000039 PROCEDURE LongMul(a, b: Longlnt; VAR dst: Int64Bit); 
000040 

000041 FUNCTION FixMul(a, b: Fixed): Fixed 

000042 

000043 FUNCTION FixRatio(numer, denom INTEGER): Fixed 

000044 

000045 FUNCTION Hi Word(x: Fixed): INTEGER; 

000046 

000047 FUNCTION LoWord(x: Fixed): INTEGER; 

000048 

000049 FUNCTION FixRound(x: Fixed): INTEGER 

000050 

000051 KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK RK KK KK KEK KK KKK KKKK 
000052 * 

000053 * THAT'S ALL FOLKS .. 

000054 * 


000055 KEK KKK KAR KK KK KKK KKK RK KK KK ERK KR KK KKK EKA KK ARK RR KKK KKK KER KK RK KKK KKK KR KKK KK KKK KEK 


000056 


End of File -- Lines: 56 Characters: 1355 
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FILE: 


000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 


Apple Lisa Computer Technical 


Information 


"LISA LIB 3 GRAPHS. TEXT" 


KEK KKK KAR KKK KK KKK KKK RK KK KK KKK KR KR KKK RK KR KK ARK KR KKK KKK KKK KKK KK KKK KR KK KKK KK KKK KKK 


x 


* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) 


x 


GRAPHS 


KEK KKK KAR KK RK K KKK KKK RK KK KK KKK KR KR KKK EK KR KK ARK KR KKK KK KKK RK KR KK KKK KARR KKK KK KKK KKK 


USES {$U+} GRAPHS; 


{$1 FC isintrin} INTRINSIC; 
INTERFACE 


USES 
{$1FC SrcOn0S } 


{$ENDC} 


(*$U OB) /PASDEFS. OB) *) PasDefs, 
(*$U OB) /MEMMAN. OB) *) MemMan, 
(*$U OBJ / LISTS. OB) *) Lists 
{$ELSEC } 
(*$U OB): PASDEFS. OB) *) PasDefs, 
(*$U OB): MEMMAN. OB) *) MemMan, 
(*$U OBJ): LISTS. OB) *) Lists 
{$ENDC } 
TYPE 
Vertex = integer; 
Arc = integer; 
VertexRec = RECORD 
firstin, firstOut: Arc 
END; 
ArcRec = RECORD 
initial, terminal: Vertex: 
nextin, nextOut: Arc 
END; 
Vt xRowPtr = “VtxRow: 
ArcRowPtr = *ArcRow; 
VtxRow = ARRAY [ - 128..127] OF VertexRec; 
ArcRow = ARRAY [ - 128..127] OF ArcRec 
VtxArrPtr = “VtxArr 
ArcArrPtr = “*ArcArr 
VtxArr = ARRAY [ - 128..127] OF VtxRowPtr; 
ArcArr = ARRAY [ - 128..127] OF ArcRowPtr; 
GRHandle = “GraphStore 
GraphStore = RECORD 
memVertices, memArcs: MMHandle: 
vertices: VtxArrPtr 
arcs: ArcArrPtr 
END; 
GraphHandle = *GraphObj ect; 
GraphObj ect = RECORD 
gstore: GRHandle; 
ink, outL: ListHandle: 
END; 
PROCEDURE AddArc(graph: GraphHandle; init, term Vertex; VAR newA: Arc 
FUNCTION GetMore(n, row: integer): boolean); 


PROCEDURE AddVertex(graph: GraphHandle; VAR newV: Vertex; FUNCTION 


Get More(n, 


Apple Lisa Desktop Library 3.0 Pascal 


row: integer): boolean); 
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000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 


End of 


PROCEDURE 


PROCEDURE 
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DeleteArc(graph: GraphHandle; oldArc: Arc); 


DeleteVertex(graph: GraphHandle; oldVertex: Vertex); 


FUNCTION FindArc( graph: GraphHandle; init, term: Vertex): Arc 


FUNCTION OppositeVertex(graph: GraphHandle; a: Arc 


oneVertex: Vertex): Vertex; 


FUNCTION InitVertex(graph: GraphHandle; a: Arc): Vertex; 


FUNCTION TermVertex(graph: GraphHandle; a: Arc): Vertex; 


FUNCTION IsSource(graph: GraphHandle; v: Vertex): boolean; 


FUNCTION IsSink(graph: GraphHandle; v: Vertex): boolean; 


FUNCTION Islsolated(graph: GraphHandle; v: Vertex): boolean; 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


EachVertex(graph: GraphHandle; PROCEDURE 
Visit(v: Vertex)); 


EachArc(graph: GraphHandle; PROCEDURE 
Visit(a: Arc)); 


Eachi nArc(graph: GraphHandle; v: Vertex; PROCEDURE 
Visit(imArc: Arc)); 


EachOutArc( graph: GraphHandle; v: Vertex; PROCEDURE 
Visit(outArc: Arc)); 


EachincidentArc( graph: GraphHandle; v: Vertex; PROCEDURE 
Visit(incidentArc: Arc)); 


EachPredecessorVertex(graph: GraphHandle; v: Vertex; PROCEDURE 
Visit(predecessor: Vertex)); 


EachSuccessorVertex(graph: GraphHandle; v: Vertex; PROCEDURE 
Visit(successor: Vertex)); 


EachAdj acentVertex(graph: GraphHandle; v: Vertex; PROCEDURE 
Visit(adjacent: Vertex) ) 


InitGLists: 


InitGraph(VAR graph: GraphHandle; nVertices, nArcs: longint 
FUNCTION MoreVerts(n, row: integer): boolean; FUNCTION 
MoreArcs(n, row: integer): boolean); 


DFSDir(g: GraphHandle; start: Vertex; PROCEDURE 
First(vi, a, vt: Vertex); PROCEDURE 
Again(vi, a, vt: Vertex); PROCEDURE 
Done(v: Vertex)); 


BFSUnDir(g: GraphHandle; start: Vertex; FUNCTION 
Test(v: Vertex; VAR cont: boolean): boolean); 


KEK KKK KKK KK RK KKK KKK KR KKK KK KKK KR KR KKK RK KR KK ARK KR KKK KKK RRR KKK KKK RK KR KR KKK KK KKK KEK 


x 
x 
x 


THAT'S ALL FOLKS ... 


KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RRR KKK EK KR KK ARK KR KKK KKK KER KKK KK KKK KKK KKK KKK KKK EK 


File -- Lines: 
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000001 KEK KKK KKK KKK KR KKK KKK RK KK KK KKK KAKA KKK RK KR KK KKK RR KKK KKK KER KK KK KKK KKK KKK KKK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : HEAP 

000004 * 

000005 KKK KKKKKKK KKK KKK KKK ARK KK KKK KKK KK ARK KKK KKK KKK KAKA KKK KKK KKK KKK KKK KK KKKKKKKKE 
000006 

000007 USES {$U+} HEAP 
000008 

000009 

000010 INTRINSIC 
000011 

000012 INTERFACE 
000013 

000014 CONST 

000015 noerror 
000016 nomem 
000017 | head 
000018 uhead 
000019 free overhead 
000020 all ocover 
000021 

000022 TYPE 

000023 _ptr 
000024 ptrptr 7 
000025 heapptr “heapbl k 

000026 heapbl k RECORD 

000027 CASE boolean OF 

000028 true: 

000029 (size: integer; 

000030 prep: heapptr; 

000031 next: heapptr); 

000032 false: 

000033 (blk: ARRAY [0..0] OF - 127,.127) 

000034 END; 

000035 zonedesc = RECORD 

000036 avail: heapptr 

000037 heapmin, heapmax: _ptr 

000038 lastdiff: integer; 

000039 availsize: integer; 

000040 END; 

000041 ptrzonedesc = “*zonedesc; 

000042 

000043 PROCEDURE init _heap(pzone: ptrzonedesc; initsize: integer; where: ptr) 
000044 

000045 FUNCTION grow heap(pzone: ptrzonedesc; growincr: integer): integer 
000046 

000047 FUNCTION nnew(pzone: ptrzonedesc; reqsize: integer 

000048 pdataptr: ptrptr): integer; 

000049 

000050 PROCEDURE ndispose(pzone: ptrzonedesc; pdata: ptr); 

000051 

000052 KKK KK KKK KKK KKK KKK KAR KKK KKK KKK ARR K ARK KKK KK KK KKK KARR KAR KKK KKK KKK KKK KKK KAR KK KKKKKKKKE 
000053 * 

000054 * THAT'S ALL FOLKS ... 

000055 * 


000056 KEK KKK KAR KKK KK KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KK KK KKK KR KKK KAKA KKK KKK 


000057 


“integer; 
“ptr; 


End of File -- Lines: 57 Characters: 1595 
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000001 KEK KKK KAR KKK KKK KKK KR KKK KK ERK KARR KKK ERK RK KAR KK RK K KKK KKK RK KR KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : HWINT 

000004 * 

000005 RAG IGG GGG IGG GGG GGG IGG IGG RGR RE RARE 
000006 

000007 USES {$U+} HW NT; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 TYPE 

000015 Ascii = Char; 

000016 Pixels = Integer; 

000017 Many Pixels = Longl nt; 

000018 CursorHeight = Integer; 

000019 CursorPtr = “Integer; 

000020 LogicalAddress = LonglI nt; 

000021 DateArray = RECORD 

000022 year: Integer; 
000023 day: Integer; 
000024 hour: Integer; 
000025 minute: Integer; 
000026 second: Integer; 
000027 END; 

000028 Frames = Longl nt; 

000029 Seconds = Longl nt; 

000030 MilliSeconds = Longl nt; 

000031 MicroSeconds = Longlnt; 

000032 Al armNumber = Integer; 

000033 SpeakerVolume = Integer; 

000034 ScreenContrast = Integer; 

000035 VisibleScrn = (PriScrn, AltScrn); 
000036 KeybdQI ndex = 1,.1000; 

000037 Keybdld = Integer; 

000038 KeyCap = 0..127; 

000039 KeyCapSet = SET OF KeyCap; 
000040 KeyEvent = PACKED RECORD 
000041 key: KeyCap; 
000042 ascii: Char: 
000043 state: Integer; 
000044 mouseX: Pixels; 
000045 mouseY: Pixels; 
000046 time: MilliSeconds: 
000047 END; 

000048 

000049 PROCEDURE Driverl nit; 

000050 

000051 PROCEDURE DiskDriver(routine: Logical Address); 
000052 

000053 PROCEDURE TwiggyDriver(routine: Logical Address); 
000054 

000055 PROCEDURE DiskSync( busy: Boolean); 
000056 

000057 PROCEDURE NMI Sync; 

000058 

000059 PROCEDURE COPSSync; 

000060 

000061 PROCEDURE Poll; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
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000101 
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PROCEDURE MouseLocation(VAR x: Pixels; VAR y: Pixels); 
PROCEDURE MouseUpdates(delay: MilliSeconds) 

PROCEDURE MouseScaling(scale: Boolean); 

PROCEDURE MouseThresh(threshold: Pixels); 

FUNCTION MouseOdometer: ManyPixels; 

PROCEDURE CursorLocation(x: Pixels; y: Pixels); 
PROCEDURE CursorTracking(track: Boolean); 


PROCEDURE Cursorl mage(hotX: Pixels; hotY: Pixels; height: CursorHei ght; 
data: CursorPtr; mask: CursorPtr); 


PROCEDURE CursorHi de 


PROCEDURE CursorShield(left: Pixels; top: Pixels; right: Pixels; 
bottom: Pixels); 


PROCEDURE CursorDispl ay 
PROCEDURE CursorObscure 
PROCEDURE Cursorl nit; 

PROCEDURE CursorRel nit; 


PROCEDURE Busyl mage(hotX: Pixels; hotY: Pixels; height: CursorHei ght; 
data: CursorPtr; mask: CursorPtr); 


PROCEDURE BusyDelay(delay: MilliSeconds); 

FUNCTION FrameCounter: Frames 

PROCEDURE ScreenSize(VAR x: Pixels; VAR y: Pixels); 
FUNCTION ScreenAddr: Logical Address 

FUNCTION AltScreenAddr: Logical Address 

FUNCTION ScreenKeybd: VisibleScreen; 

PROCEDURE SetScreenKeybd(screen: Visi bl eScreen) 
FUNCTION Contrast: ScreenContrast; 

PROCEDURE SetContrast(contrast: ScreenContrast); 
PROCEDURE RampContrast(contrast: ScreenContrast); 
FUNCTION DimContrast: ScreenContrast; 

PROCEDURE SetDimContrast(contrast: ScreenContrast); 
FUNCTION FadeDelay: MilliSeconds 

PROCEDURE SetFadeDel ay(delay: MilliSeconds) 
PROCEDURE Power Down; 


PROCEDURE PowerCycle(delay: Seconds); 
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000128 FUNCTION Volume: Speaker Vol ume 

000129 

000130 PROCEDURE SetVolume(volume: Speaker Vol ume) 

000131 

000132 PROCEDURE Noise(waveLength: MicroSeconds); 

000133 

000134 PROCEDURE Silence 

000135 

000136 PROCEDURE Beep(waveLength: MicroSeconds; duration: MilliSeconds) 
000137 

000138 FUNCTION Keyboard: Keybdld; 

000139 

000140 FUNCTION Legends: Keybdld; 

000141 

000142 PROCEDURE SetLegends(id: Keybdld); 

000143 

000144 FUNCTION Keyl sDown( key: KeyCap): Bool ean; 

000145 

000146 PROCEDURE KeyMap( VAR keys: KeyCapSet) 

000147 

000148 FUNCTION KeybdPeek(repeats: Boolean; index: KeybdQindex; 
000149 VAR event: KeyEvent): Bool ean; 

000150 

000151 FUNCTION AltKeyPeek(repeats: Boolean; index: KeybdQI ndex; 
000152 VAR event: KeyEvent): Boolean; 
000153 

000154 FUNCTION KeybdEvent(repeats: Boolean; wait: Boolean; 
000155 VAR event: KeyEvent): Boolean; 
000156 

000157 FUNCTION AltKeyEvent(repeats: Boolean; wait: Boolean; 
000158 VAR event: KeyEvent): Bool ean; 
000159 

000160 PROCEDURE RepeatRate(VAR initial: MilliSeconds; 

000161 VAR subsequent: Milli Seconds) 
000162 

000163 PROCEDURE SetRepeatRate(initial: MilliSeconds; subsequent: MilliSeconds); 
000164 

000165 PROCEDURE KeyPushed(key: KeyCap); 

000166 

000167 FUNCTION NMI Key: KeyCap; 

000168 

000169 PROCEDURE SetNMI Key(key: KeyCap); 

000170 

000171 FUNCTION ToggleKey: KeyCap 

000172 

000173 PROCEDURE SetToggl eKey(key: KeyCap) 

000174 

000175 FUNCTION KeyToAscii(key: KeyCap; State: Integer): Ascii; 
000176 

000177 FUNCTION MicroTimer: MicroSeconds 

000178 

000179 FUNCTION Timer: MilliSeconds; 

000180 

000181 PROCEDURE AlarmAssign(VAR alarm: AlarmNumber; routine: Logical Address) 
000182 

000183 PROCEDURE AlarmReturn(alarm AlarmNumber); 

000184 

000185 PROCEDURE AlarmAbsolute(alarm: AlarmNumber; time: Milli Seconds); 
000186 

000187 PROCEDURE AlarmRelative(alarm: AlarmNumber; delay: MilliSeconds) 
000188 

000189 PROCEDURE AlarmOff(alarm: Al armNumber) 

000190 

000191 PROCEDURE DateTime(VAR date: DateArray); 

000192 

000193 PROCEDURE SetDateTime(date: DateArray); 
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End of 
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PROCEDURE DateToTi me(date: DateArray; VAR time: Seconds); 
FUNCTION TimeStamp: Seconds; 
PROCEDURE SetTimeStamp(time: Seconds); 


PROCEDURE TimeToDate(time: Seconds; VAR date: DateArray); 


KEK KKK KAR KK RK KR KKK KKK RK KR KK KKK KR KR KKK RK KR KK ARK KR KKK KKK KER KAKA KK KKK KKK KKK KK KKK KEK 
x 


* THAT'S ALL FOLKS ... 


KEK KKK KAR KKK KR KKK KKK RK KR KK KKK KR KR KKK RK KR KK ARK RR KKK KR KKK RK KR ARK K RK KR KKK KAKA KKK KEK 


File -- Lines: 208 Characters: 5154 
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FILE: "LISA LIB 3 INTERNAT. TEXT" 


000001 KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK ERK RK KARA KR KKK KKK KKK KKK KK KKK KARR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : INTERNAT 

000004 * 

000005 kG GG IGG IGG IGG GGG GGG GGG IGG GGG RRR RAKES 
000006 

000007 USES {$U+} I NTERNAT 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/UnitStd } UnitStd 

000016 

000017 CONST 

000018 Maxi mumCharsMatching = 10; 

000019 MCodeNi | = 0; 

000020 MCodeUS = 1; 

000021 MCodeUK = 2; 

000022 MCodeGermany = 3; 

000023 MCodeFrance = 4; 

000024 MCodeltaly = 5; 

000025 MCodeSweden = 6 

000026 MCodeSpain = 7} 

000027 

000028 TYPE 

000029 KindOfCompare = (CompAbsolute, CompStrong, CompWeak, CompVeryWeak); 
000030 CompChrP = *CompChr 

000031 CompChr = PACKED ARRAY [0..0] OF CHAR; 

000032 CompStrP = “CompStr 

000033 CompStr = STRING[ 255] 

000034 

000035 PROCEDURE InitI nternational(VAR errnum INTEGER); 
000036 

000037 PROCEDURE UpStrShift(sP: CompStrP); 

000038 

000039 PROCEDURE UpChrShift(pc: CompChrP; length: | NTEGER); 
000040 

000041 PROCEDURE DownStrShift(sP: CompStrP) 

000042 

000043 PROCEDURE DownChrShift(pc: CompChrP; length: | NTEGER) 
000044 

000045 FUNCTION CompStrMagnitude(stringl, string2: CompStrP 
000046 veryWeak: BOOLEAN): INTEGER 
000047 

000048 FUNCTION CompChrMagnitude(charl, char2: CompChrP; length1, length2: INTEGER; 
000049 veryWeak: BOOLEAN): INTEGER 
000050 

000051 FUNCTION CompareChar(chi, ch2: CHAR; kind: KindOfCompare): BOOLEAN 
000052 

000053 PROCEDURE CharsMatching(ch: CHAR; kind: KindOfCompare 
000054 matchingChars: CompChrP 

000055 VAR nOf MatchigChars: INTEGER) 
000056 

000057 FUNCTION CompStridentity(stringl, string2: CompStrP; 
000058 kind: KindOfCompare): BOOLEAN 
000059 

000060 FUNCTION CompChridentity(char1, char2: CompChrP; lengthl, length2: INTEGER 
000061 kind: KindOfCompare): BOOLEAN 
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FOGG GGG GGG GGG KKK RR KER 
x 

THAT'S ALL FOLKS ... 

x 


KEKKKK KAR KKK KKK KK KKK KKK KK ERK KR KR KKK EK KR KK ARK RR KKK KKK RRR KKK KK KKK KR KK KKK KK KKK KEK 


File -- Lines: 68 Characters: 1915 
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FILE: "LISA LIB 3 | OPRI MIT. TEXT" 


000001 KEK KKK KARA KARR KKK KKK RK KK KK KR KK AKA KKK RK KR KK ARK ERK KK KK KKK RK KR KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : |OPRIMIT 

000004 * 

000005 RR GGG IGG IGG IGG IGG ICG GGG IGG GO IGG GGG RRR RAKES 
000006 

000007 USES {$U+} | OPRI MIT; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$u SULib} StdUnit; 

000016 

000017 CONST 

000018 | OMaxStr = 132; 

000019 1 OMaxStP1 = 133; 

000020 1 OBI kSize = 6; 

000021 | OByteSize = 3072; 

000022 | OByt SizeMl = 3071; 

000023 1 Ol nc Max = 5; 

000024 1OPvtErr = 32000; 

000025 100pnErr = 32001; 

000026 10lnceErr = 32002; 

000027 1OBfreErr = 32003; 

000028 | OMemlErr = 32004; 

000029 1 OMe m2Err = 32005; 

000030 

000031 TYPE 

000032 | OModes = (1 ORead, | OWrite); 
000033 10CloseKind = (1ONormal, |OLock, | OPurge, | OCrunch); 
000034 | ODevType = (1OBIkDev, |O0KbDev, |O0ConsDev, | OPrDev); 
000035 10StrP = *10Str; 

000036 10Str = String[|OMaxStr]; 

000037 1 OBufrP = “| OBufr; 

000038 1 OBufr = PACKED ARRAY [0..1 OBytSizeMl] OF Char; 
000039 1 OPBuf P = “| OPBufr: 

000040 1 OPBufr = RECORD 

000041 Next: | OPBufP; 
000042 Bufr: | OBufrP; 
000043 END; 

000044 | OFCBP = “1 0FCB; 

000045 | OFCB = RECORD 

000046 Filename: SUStr; 
000047 DevType: | ODevType; 
000048 F: FILE; 

000049 LineNbr: Integer; 
000050 Bufr: | OBufrP; 
000051 BufrCp: Integer; 
000052 Pvt Bufr: | OPBufP: 
000053 Pvt FCB: Boolean: 
000054 BI kNbr: Integer; 
000055 CurrLine: String[!OMaxStP1]; 
000056 CurrLen: Integer; 
000057 Next, Prev, Avail: | OFCBP; 
000058 PtrToFCBPtr: “I OFCBP: 
000059 Pushed: Boolean: 
000060 BufrSaved: Boolean; 
000061 CASE Mode: |OModes OF 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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1 ORead: 
(LastBlk: Integer 
LastByte: Integer; 
Eol: Boolean); 
10Write: 
(EndPage: Integer); 
END; 
| OTextP = “Text; 
VAR 
1 0Curr FCB: | OFCBP 
1 Ol ncDepth: Integer; 
10l ncBufr: 1 OBufrP; 
10l ncFCBs: ARRAY [1..10I ncMax] OF | OFCBP; 
10l nTotal: Longl nt; 
100utTotal: Longl nt; 
10Endfile: Char; 
| ONewl ine: Char; 
| OKeyBoard: Text; 
1 00bj Ext: Bool ean; 
| ONoExt: Bool ean; 
| ONoDLEs: Bool ean; 
PROCEDURE Initl0 
PROCEDURE Endl 0; 
FUNCTION OpenF(Fname: SUStr; VAR FCB: |OFCBP; Mode: | OModes 
Bufr: |OBufrP): Integer; 
FUNCTION CreateF(Fname: SUStr; VAR FCB: |OFCBP; Bufr: | OBufrP): Integer 
FUNCTION SysOpenF(Fname: SUStr; VAR FCB: |OFCBP; Mode: | OModes 
Bufr: |OBufrP): Integer 
PROCEDURE CloseF(FCB: | OFCBP; CloseKind: | OCI oseKind); 
FUNCTION PushI nput(Fname: SUStr): Integer 
FUNCTION Popl nput: Bool ean; 
PROCEDURE Next Page(FCB: | OFCBP); 
PROCEDURE Fill Bufr( FCB: | OFCBP); 
PROCEDURE SeekBlock( FCB: |OFCBP; Block: Integer); 
PROCEDURE FilePosition(FCB: |OFCBP; VAR Block, Byte: Integer); 
FUNCTION GetcF( FCB: |OFCBP; VAR c: Char): Char; 
FUNCTION GetLine(FCB: | OFCBP; Line: |OStrP): Boolean: 
PROCEDURE PutcF(FCB: |OFCBP; c: Char); 
PROCEDURE PutLineP( FCB: |OFCBP; Line: | O0StrP); 
PROCEDURE PutLineS(FCB: |OFCBP; Line: | O0Str); 
PROCEDURE PutStrP(FCB: |OFCBP; S: |OStrP; Width: Integer); 
PROCEDURE PutStrS(FCB: |OFCBP; S: 1OStr; Width: Integer); 
FUNCTION PutI nt P(N: Longl nt; Width: Integer): |OStrP 
FUNCTION 1OError(!OStatus: Integer; Msg: SUStr): Boolean; 
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FUNCTION SysReset(F: |OTextP; FN: SUStr): Integer 


KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RRR KKK KK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KKK KAKA KKK KEK 


x 


‘ THAT'S ALL FOLKS ... 


KEK KKK KKK KK RRR KKK KKK RK KK KK KR KK RK KKK KEK KR KK ARK KR KKK KKK KER KKK KK KKK KKK RK KAKA KKK KKK 
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FILE: "LISA LIB 3 | UMAN. TEXT" 


000001 KEK KKK KKK KK RK KKK KKK KR KKK KKK RK KAKA KKK KK KR KK KKK KR KKK KKK KKK K KR KKK KKK RK KKK KKK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : I UMAN 

000004 * 

000005 RR GGG GGG IGG GGG IGG IGG IGG IGG GRR RRR ARES 
000006 

000007 USES {$U+} I UMAN 


000008 

000009 

000010 {$IFC isintrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$l FC SrcOn0S } 

000016 (*$U OB) /STDUNIT. OB) *) StdUnit, 

000017 (*$U OB) /PASDEFS. OB) *) PasDefs, 

000018 (*$U OB) / MEMMAN. OBJ *) MemMan 

000019 (*$U OB)/FILEI0. OB) *) FilelO 

000020 (*$U OB) /OBJ10. 0B) *) Obj10; 

000021 {$ELSEC } 

000022 (*$U OB): STDUNIT. OBJ *) Stdunit, 

000023 (*$U OB): PASDEFS. OB) *) PasDefs, 

000024 (*$U OB): MEMMAN. OBJ *) MemMan 

000025 (*$U OB): FILEI0. OB) *) Filelo 

000026 (*$U OB): 0OBJ10. 0B) *) Obj10; 

000027 {$ENDC } 

000028 

000029 CONST 

000030 

000031 

000032 Conf i gMax = '127,127,127,127' 

000033 

000034 TYPE 

000035 pSegLocVariant = “i SegLocVari ant; 

000036 pOldULVariant = *i Ol dULVariant; 

000037 pUnitLVariant = *iUnitLVariant; 

000038 {$1 FC isSAndE} 

000039 pSoftSystem = “i SoftSystem 

000040 pSftSysRec = “SftSysRec 

000041 SftSysRec = RECORD 

000042 SDep: iSftSysVari ant; 

000043 nxt: pSftSysRec 

000044 END; 

000045 {$ENDC} 

000046 | USegArr = ARRAY [1..TMAXSEGS] OF pSegLocVari ant 
000047 1UUnitArr = ARRAY [1..TMAXUNITS] OF pUnitLVariant; 
000048 1UStrArr = ARRAY [1..TMAXFILES] OF PLString; 
000049 PlUStrArr = “| UStrArr; 

000050 {$1 FC isSAndE} 

000051 |USysArr = ARRAY [1..TMAXSYSS] OF pSoftSystem 
000052 | USys Dep = ARRAY [1..TMAXSYSS] OF pSftSysRec 
000053 {$ENDC} 

000054 

000055 VAR 

000056 |UMaxSegs, | UMaxUnits, | UMaxFNames, | UMaxSyss: integer; 
000057 iuLibSegs: “LUSegArr; 

000058 iuLibUnts: A“) UUnitArr 

000059 iuLi bFNam: PL UStrArr 

000060 {$1 FC isSAndE} 

000061 iuLibSyss: “LUSysArr 
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000062 iuLibSNam: PlUStrArr 

000063 iuLi bSDep: “| USysDep; 

000064 {$ENDC} 

000065 iuLibFile: Obj Handle; 

000066 i uLi bName: LString 

000067 Ol dFor mat: bool ean; 

000068 This! ULi b: integer 

000069 sysConfig, sysMinConfig, sysMaxConfig: Longint; 

000070 

000071 PROCEDURE | nit! UMan; 

000072 

000073 PROCEDURE Eachli USeg( PROCEDURE visit(s: integer)); 

000074 

000075 PROCEDURE Eachl UUnit( PROCEDURE visit(u: integer)); 

000076 

000077 PROCEDURE Eachl UFile( PROCEDURE visit(f: integer)); 

000078 {$1 FC isSAndE} 

000079 

000080 PROCEDURE Eachl USys( PROCEDURE visit(s: integer)); 

000081 {$ENDC} 

000082 

000083 PROCEDURE VersToStr(VAR s: LString; VAR vers: Longint); 

000084 

000085 PROCEDURE WriteVers(VAR f: text; vers: Longint; len: integer); 

000086 

000087 PROCEDURE StrToVers(s: LString; VAR vers: Longint) 

000088 

000089 PROCEDURE ReadVers(VAR vers: Longint; VAR stat: PromptState; DefL: Longint); 
000090 

000091 PROCEDURE VerifyVers(minfile: Longint; maxfile: Longint; msg: LString) 
000092 

000093 FUNCTION ReadI ULib(allocDelta, unitsOnly, filter: boolean; 

000094 SSNam: PLString): boolean; 

000095 

000096 PROCEDURE WritelULib(VCtrl: Obj FileType; SysC: Longint; ModL: integer; 
000097 TimeS: Longint; VAR iuOutFile: Obj Handle; 

000098 Rootl dx: integer) 

000099 

000100 PROCEDURE WritelUVers(VCtrl: ObjFileType; SysC: Longint; ModL: integer 
000101 TimeS: Longint; VAR iuOutFile: Obj Handle; 

000102 Rootidx: integer; EmitOSBIk: bool ean) 

000103 

000104 FUNCTION I Ul nstall (VAR FName: LString; FNum: integer; VAR vFile: Obj Handle; 
000105 VAR PName: LString; PlTSeg: integer): boolean; 
000106 

000107 PROCEDURE Copylnter(inF, outF: ObjHandle; VAR outBlock: Obj Block; NBytes 
000108 buf P: Longint); 

000109 


00.0220 ROG GIORGGIR KE 
000111 * 

000112 * THAT'S ALL FOLKS ... 

000113 * 

00.000. ROG GOOG ORIG KE 


000115 


End of File -- Lines: 115 Characters: 3471 
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FILE: "LISA LIB 3 LABSCAN. TEXT" 


000001 KEK KKK KAR KKK KK KKK KKK RK KR KK KKK KR KR KKK RK KR KK ARK KR KKK KK KKK RK KARR KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LABSCAN 

000004 * 

000005 REG I GGG IGG IGG IGG IGG IGG RRR RAKES 
000006 

000007 USES {$U+} LABSCAN 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$I FC OSBUILT } 

000016 {$U libsm/unitstd. obj } unitstd, 

000017 {$U libdb/dbenv.obj } dbenv 

000018 {$U libin/INTRLIBp. obj } international 

000019 {$U libdb/dbdecl1.obj } dbdecl1, 

000020 {$U libos/syscall.obj } syscall 

000021 {$U libos/psyscall.obj } psyscall 

000022 {$U libdb/lowlevel.obj } lowlevel 

000023 {$U libdb/pooler.obj } pooler 

000024 {$U libdb/ heap. obj } heap 

000025 {$U libdb/czcompact.obj } czCompact, 

000026 {$U libdb/vitree.obj } vitree 

000027 {$U libdb/scan. obj } scan; 

000028 {$ELSEC} 

000029 {$U OB): dbenv.obj } dbenv 

000030 {$U I NTRLIB. obj } international 

000031 {$U OB): dbdecl1.obj } dbdecl1, 

000032 {$U OB): syscall.obj } syscall 

000033 {$U OB):lowlevel.obj } lowlevel 

000034 {$U OB): pooler.obj } pooler 

000035 {$U OBJ: heap. obj } heap, 

000036 {$U OB): czcompact.obj } czCompact, 

000037 {$U OB): vitree.obj } vitree 

000038 {$U OBJ): scan.obj } scan; 

000039 {$ENDC} 

000040 

000041 {$SETC debug := false } 

000042 

000043 {$1 FC PRERELEASE } 

000044 

000045 var 

000046 

000047 

000048 | abdebug: bool ean; 

000049 {$ENDC } 

000050 

000051 PROCEDURE Ifetch(VAR ddresult: integer; scanid: integer; which: integer 
000052 nsearch: integer; plabrec: ptrilabelentry) 
000053 

000054 PROCEDURE linsert(VAR ddresult: integer; scanid: integer 
000055 plabrec: ptrlabelentry; size: integer 
000056 newticket: bool ean) 

000057 

000058 PROCEDURE Idelete(VAR ddresult: integer; scanid: integer; which: integer 
000059 nsearch: integer; plabrec: ptrlabelentry) 
000060 


000061 KEK KKK KKK KK KR KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK E RK KR KK KKK ERK KKK KKK KKK KEK 
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: THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KKK KK KKK KKK RK KR KK KKK KR KR KKK KK KR KKK RK KKK KKK RRR KR KKK KKK KKK KR KKK KK KKK KEK 
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FILE: "LISA LIB 3 LCUT. TEXT" 


000001 KEK KKK KAR KKK RK KK KKK RK KK KK ERK KAKA KKK EK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LCUT 

000004 * 

000005 RGGI IGG IGG IGG GGG GGG IGG IGG GGG RRR RARE 
000006 

000007 USES {$U+} LCUT; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 (*$U libsm/ UnitStd *) UnitStd 
000016 (*$U libsm/ UnitHz *) UnitHz 
000017 (*$U libqd/ Storage *) Storage 
000018 {$U libqd/ QuickDraw } QuickDraw, 
000019 {$U |i bf m/ Font Mgr } Font Mgr 
000020 (*$U libdb/dbenv *) dbenv 

000021 (*$U libfe/FEdec *) FEdec, 

000022 (*$U libfe/fld *) fieldedit, 
000023 (*$U libos/SysCall *) Syscall 
000024 (*$U libte/teenv *) teenv 

000025 (*$U libpr/PMDec! *) PMDecl 
000026 (*$U libpr/PrStdinfo *) PrStdinfo, 
000027 (*$U libwm/events *) events, 
000028 (*$U libsu/scrap *) scrap, 

000029 (*$U libsu/unitFile *) unitFile, 
000030 (*$U libsu/ unit Fmt *) unit Fmt 
000031 (*$U libsu/unitCs *) UnitCs, 
000032 (*$U libsu/unitFF *) unitFF; 
000033 (*$SETC LCUTdebug := not teProduction *) 
000034 

000035 CONST 

000036 LCUTAI | Ok = 0; 

000037 LCUTNoData = 1; 

000038 LCUTTabProb =~2" 

000039 LCUTWdProb = 3; 

000040 LCUTNoHeap = 4 

000041 (*$1FC LCUTdebug *) 

000042 TraceLCUT = false 

000043 (*$ENDC *) 

000044 

000045 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KEK KK KK EKA KKK 
000046 * 

000047 * THAT'S ALL FOLKS ... 
000048 * 


000049 KEK KKK KAR KK RK RK KK KKK RK KK KK ERK KARR KKK RK KR KK ARK ERK KK KKK KKK K KR KK KKK ARR KKK KAKA KKK KEK 


000050 


End of File -- Lines: 50 Characters: 1328 
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FILE: "LISA LIB 3 LISTS. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KR KK KR KK RK RRR KEK KR KK ARK ERK KK KKK KER KKK KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LISTS 

000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KEK KK KK RK KK KK EK KKKK 
000006 

000007 USES {$U+} LISTS; 

000008 

000009 

000010 {$IFC isIntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 (*$U OB) /PASDEFS. OB) *) PasDefs, 

000017 (*$U OB) /MEMMAN. OB) *) MemMan; 

000018 {$ELSEC } 

000019 (*$U OB): PASDEFS. OB) *) PasDefs, 

000020 (*$U OB): MEMMAN. OB) *) MemMan; 

000021 {$ENDC } 
000022 

000023 TYPE 
000024 

000025 

000026 Head 
000027 Item 
000028 ListOpsPtr 
000029 EnvrPtr “integer 

000030 List OpsRec RECORD 

000031 setFirst: ProcPtr: 

000032 getFirst: ProcPtr 

000033 setNext: ProcPtr 

000034 getNext: ProcPtr 

000035 before: ProcPtr 

000036 END; 

000037 ListHandle AListStore 

000038 ListStore RECORD 

000039 ops: ListOpsPtr; 

000040 Istore: longint; 

000041 END; 

000042 

000043 PROCEDURE Additem(list: ListHandle; LHead: Head: Newltem Item); 
000044 

000045 PROCEDURE Deleteltem(list: ListHandle; LHead: Head; Olditem Item) 
000046 

000047 PROCEDURE Eachiltem(list: ListHandle; LHead: Head; PROCEDURE 

000048 Visit(LItem Item)) 

000049 

000050 FUNCTION Firstltem(list: ListHandle; LHead: Head): Item 

000051 

000052 PROCEDURE InitList(list: ListHandle; NewList: Head); 

000053 

000054 PROCEDURE InitLStore(VAR list: ListHandle; LO: ListOpsPtr; LS: | ongint) 
000055 

000056 PROCEDURE Insertitem(list: ListHandle; LHead: Head; Newltem Item) 
000057 

000058 FUNCTION ListEmpty(list: ListHandle; LHead: Head): bool ean; 

000059 

000060 FUNCTION ListSize(list: ListHandle; LHead: Head): integer; 

000061 


integer; 
integer; 
“List OpsRec; 
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000063 
000064 
000065 
000066 
000067 
000068 
000069 


End of 
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PROCEDURE ReverseList(list: ListHandle; LHead 


Head); 


KEK KKK KKK KK RRR KKK KKK RK KR KK KKK KAKA KKK RK KR KK ARK KR KKK KK RRR RK KK KK KKK KKK KKK KKK KKK KEK 


x 


‘ THAT'S ALL FOLKS ... 


KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KARR KKK KK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KEK 
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FILE: "LISA LIB 3 LOWEVEL. TEXT" 


000001 KEK KKK KKK KKK KK KKK KKK RK KR KK ERK KR KR KKK RK KR KK ARK RR KKK KKK KER KKK KKK KKK RK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : LOWEVEL 

000004 * 

000005 KKK KKKKKKKK KKK KARR KARR KK KKK KKK KK ARK KKK KKK KKK KK ARK KAR KKK KKK KKK KKK KARR KAR KK KKKKKKKKE 
000006 

000007 USES {$U+} LOWLEVEL; 

000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$I FC OSBuilt } 

000016 {$U libsm/unitstd. obj } unitstd, 
000017 {$U libdb/dbenv.obj } dbenv 
000018 {$U libdb/dbdecl1.obj } dbdecl1, 
000019 {$U libos/syscall.obj } syscall 
000020 {$U libos/psyscall.obj } psyscall 

000021 {$ELSEC } 

000022 {$U 

000023 {$ 

000024 {$ 

000025 {$END 

000026 

000027 Type 

000028 

000029 

000030 ptrpathname = “pathname; 

000031 

000032 VAR 

000033 prefix_length: integer 

000034 prefix: pat hname 

000035 passwd length: integer 

000036 password: e_name; 

000037 

000038 PROCEDURE setprefix(newprefix: ptrpathname) ; 

000039 

000040 PROCEDURE setpasswd(VAR newpasswd: e name) 

000041 

000042 PROCEDURE prefix_name(fname: ptrpathname) ; 

000043 

000044 KKK KKKKKKKKK KKK KKK KARR KK KK KKK KKK ARK KKKK KKK KKK KARR KAR KK KKK KKK KKK KKK KAR KKKKKKKKKKE 
000045 * 

000046 * THAT'S ALL FOLKS ... 

000047 * 


000048 KEK KKK KAR KK RRR KKK KKK RK KK KKK RK KARR KKK RK KR KK ARK KR KKK KKK KER KKK KK KKK KKK KKK KKK KKK KEK 


000049 


obj: dbenv. obj } dbenv, 
U obj: dbdecl1l.obj } dbdecl1, 
U obj:syscall.obj } syscall; 
C } 


End of File -- Lines: 49 Characters: 1120 
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FILE: "LISA LIB 3 MATHLIB. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KK KKK RK KR KK KKK ERK KKK KKK ERK KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : MATHLIB 

000004 * 

000005 RR GGG IGG IGG GG IGG IGG IGG GO IGG IGG RR RE RAKES 
000006 

000007 USES {$U+} MATHLI B; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 {$C Copyright 1983, 1984, Apple Computer Inc. } 
000015 

000016 USES 

000017 {$U- } {$U LibFP/ NewFPLib } FPLib; 

000018 

000019 CONST 

000020 RandModul us = 2147483647; 

000021 LSi gDi glen = 30; 

000022 

000023 TYPE 

000024 RoundPrecision = (ExtPrecision, Dbl Precision, Real Precision); 
000025 FP_Type = (TFP_byte, TFP_integer, TFP_longint, TFP_ Comp, TFP_real 
000026 TFP Double, TFP_Extended) 
000027 Free Format = RECORD 

000028 MaxSig: integer 

000029 Sig_FForm, Trail Point, Int_EForm, Plus_EForm: bool ean; 
000030 END; 

000031 P_QR_ Record = longi nt; 

000032 LongSi gDig = string[LSi gDi glen] 

000033 LongDeci mal = RECORD 

000034 sgn: 0..1; 

000035 exp: integer; 

000036 sig: LongSi gDig; 

000037 END; 

000038 

000039 PROCEDURE ASinX(VAR x: Extended); 

000040 

000041 PROCEDURE ACosX(VAR x: Extended); 

000042 

000043 PROCEDURE SinhX(VAR x: Extended); 

000044 

000045 PROCEDURE CoshX(VAR x: Extended); 

000046 

000047 PROCEDURE TanhX(VAR x: Extended); 

000048 

000049 PROCEDURE Abs2X(x, y: Extended; VAR z: Extended) 
000050 

000051 PROCEDURE ATan2X(x, y: Extended; VAR z: Extended) 
000052 

000053 FUNCTION NextRandom(lastrandom: longint): | ongint; 
000054 

000055 PROCEDURE ClearXcps 

000056 

000057 PROCEDURE ClearHits 

000058 

000059 PROCEDURE SetPrecision(p: RoundPreci sion); 
000060 

000061 FUNCTION Get Precision: RoundPreci sion; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


PROCEDURE 


Apple Lisa Computer Technical Information 


Math Sort(first, last: integer; FUNCTION 
sorted(i, j: integer): boolean; PROCEDURE 
swap(i, j: integer)VAR error: boolean); 


FUNCTION SignOfX(x: Extended): boolean; 


FUNCTION FP_New(n: longint): longint; 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


FP_Size(x: Extended; VAR sgn: integer; VAR class: NumClass 
VAR size: FP Type); 


FP_Free Ascii(x: Extended; width: integer; form Free Format; 
VAR s: Decstr); 


Fin Npv(first, last, net: integer; rate: Extended 
VAR Npv: Extended; PROCEDURE 
payment(i: integer; VAR pmt: Extended)); 


Fin Return(first, last: integer; negperiod, posperiod: integer 
negrate, posrate: Extended; VAR ncs: integer 
VAR ret: Extended; PROCEDURE 
payment(i: integer; VAR pmt: Extended) ) 


Mat Mult(n, p, m integer; overlap: boolean; VAR error: boolean; 
PROCEDURE afetch(i, j: integer; 
VAR aij: Extended) PROCEDURE 
xfetch(i, j: integer; VAR xij: Extended) PROCEDURE 
bstore(i, j: integer; bij: Extended)); 


QR_Factor(n, p: integer; pivot: boolean; VAR QR: P_QR Record 
PROCEDURE afetch(i, j: integer; VAR aij: Extended)); 


QR_Condition(QR: P_QR Record; VAR cond: Extended); 


QR_Determi nant(QR: P_QR Record; VAR det: Extended); 


QR_Solve(m: integer; QR: P_QR_Record; VAR error: boolean; PROCEDURE 


bfetch(i, j: integer; VAR bij: Extended); PROCEDURE 
xstore(i, j: integer; xij: Extended)); 


QR_Residual(n, p: integer; m: integer; PROCEDURE 
afetch(i, j: integer; VAR aij: Extended); PROCEDURE 
bfetch(i, j: integer; VAR bij: Extended); PROCEDURE 
xfetch(i, j: integer; VAR xij: Extended); PROCEDURE 
rstore(i, j: integer; rij: Extended)); 


QR_I mprove(m integer; QR: P_QR_ Record; VAR error: boolean; 
PROCEDURE afetch(i, j: integer; VAR aij: Extended) 
PROCEDURE bfetch(i, j: integer; VAR bij: Extended) 
PROCEDURE xfetch(i, j: integer; VAR xij: Extended) 
PROCEDURE xstore(i, j: integer; xij: Extended)); 


QR_TranSolve(m= integer; QR: P_QR Record; VAR error: boolean; 
PROCEDURE bfetch(i, j: integer; VAR bij: Extended) 
PROCEDURE xstore(i, j: integer; xij: Extended)) 
QR_TranDetermi nant(QR: P_QR_ Record; VAR det: Extended) 
X2LDec(f: DecForm; x: Extended; VAR y: LongDeci mal); 
LDec2X(prec: RoundPrecision; x: LongDecimal; VAR y: Extended); 


Math Solve(estl, est2: Extended; VAR result: Extended; PROCEDURE 
f(x: Extended; VAR fx: Extended) ); 
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000129 
000130 
000131 
000132 
000133 


End of 
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KEK KKK KARA KR KR KKK KKK RK KK KK KR KK RK RRR KEK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KEK 


x 


: THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KK RRR KKK KKK RK KK KK KR KK RK KKK KEK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KR KKK KK KKK KEK 


File -- Lines: 133 Characters: 4707 
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FILE: "LISA LIB 3 MEMMAN, TEXT" 


000001 KEK KKK KKK KKK KK KKK KKK RK KK KK KR KK RK RRR K ERK RK KAR KER KKK KKK KKK KR KK KKK KKK KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : MEMMAN 

000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KEK KK KK RK KK KK EKA KKK 
000006 

000007 USES {$U+} MEMMAN; 

000008 

000009 

000010 {$lFC isIntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 (*$U OB) /PASDEFS. OB) *) PasDefs; 

000017 {$ELSEC } 

000018 (*$U OB): PASDEFS. OB) *) PasDefs; 

000019 {$ENDC } 

000020 

000021 CONST 

000022 

000023 

000024 Null l tem = + 32768 

000025 

000026 TYPE 
000027 MMSt at us 
000028 MMSt ore 
000029 PMMSt at Row 
000030 MMSt at Arr 
000031 MMSt at Row 
000032 MMHandl e “MMRec 

000033 MMRec RECORD 

000034 maxElements, curElements: longint; 

000035 FirstFree: longint 

000036 mstore: MMStore 

000037 END; 

000038 MMbyt e - 128..127; 

000039 MMI nt Bytes RECORD 

000040 CASE boolean OF 

000041 true: 

000042 (int: integer); 

000043 false: 

000044 (hi, lo: MMbyte) 

000045 END; 

000046 

000047 PROCEDURE I nitMem( VAR mem: MMHandle; numElements: longint; FUNCTION 
000048 Get More(n, row: integer): boolean); 

000049 

000050 FUNCTION MMAI | ocate( mem: MMHandle; FUNCTION 

000051 Get More(n, row: integer): boolean): integer; 
000052 

000053 PROCEDURE Reserve(mem: MMHandle; i: integer; FUNCTION 

000054 Get More(n, row: integer): boolean); 

000055 

000056 PROCEDURE Free(mem: MMHandle; i: integer) 

000057 

000058 FUNCTION IsFree(mem: MMHandle; i: integer): boolean; 

000059 

000060 PROCEDURE EachAllocated( mem: MMHandle; PROCEDURE 

000061 visit(i: integer)); 


(MMAlloc, MMFree); 

“MMStatArr; 

“MMSt at Row 

ARRAY [ - 128..127] OF PMMSt at Row 
PACKED ARRAY [ - 128..127] OF MMStatus; 
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000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 


End of 
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PROCEDURE HeapAlloc(VAR p: MemPtr; n: longint; m 


FUNCTION MMRows(n: longint): integer 


FUNCTION Null More(n, row: integer): boolean; 


longint); 


KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RK KKK KEK KR KK ARK KR KKK KK KK E RK KR KK KKK KR KR KKK KKK KKK EK 


x 


‘ THAT'S ALL FOLKS ... 
k 


KEK KKK KAKA KR KK KKK KKK RK KK KK ERK KR KK KKK RRR RK KAR KKK KKK KK KKK KKK KK KKK RR KK KKK KK KKK KEK 
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FILE: "LISA LIB 3 MENUS. TEXT" 


000001 KEK KKK KAKA KR KR KKK KR KR KKK KK ERK KAKA KKK RK KR KK ARK KR KKK KKK KKK KKK KKK RK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : MENUS 

000004 * 

000005 REGGIO IGG IGG GGG GRE RAKES 
000006 

000007 USES {$U+} MENUS; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U li bhw/ HW nt } HWint, 

000016 {$U libsm/ Unit Std } UnitStd, 

000017 {$U libsm/ UnitHz } UnitHz, 

000018 {$U libqd/ Storage } Storage, 
000019 {$U libqd/QuickDraw } QuickDraw, 
000020 {$U |i bf m/ Font Mgr } Font Mgr, 
000021 {$U libos/SysCall } SysCall, 

000022 {$U |i bwm/ Events } Events, 

000023 {$U |i bwm/ Wi ndows } Windows, 
000024 {$U |i bwm/ Folders } Folders; 
000025 

000026 CONST 

000027 max! tem = 31; 

000028 noMark = 0; 

000029 vertSpace = 15; 

000030 {$I FC wm0s } 

000031 checkMark = ccCheck; 

000032 appl eMark = ccApple; 

000033 {$ELSEC} 

000034 checkMark = 142; 

000035 appl eMark = 143; 

000036 {$ENDC} 

000037 

000038 TYPE 

000039 MenuPtr = “Menul nfo; 

000040 Menul nfo = RECORD 

000041 menuld: INTEGER: 
000042 menuWidth: INTEGER; 
000043 menuHei ght: INTEGER; 
000044 DrawProc: ProcPtr; 
000045 ChooseProc: ProcPtr; 
000046 enableFlags: PACKED ARRAY [0..maxltem] OF BOOLEAN; 
000047 menuData: Handle: 
000048 END; 

000049 rMenul nfo = ARRAY [0..0] OF Menul nfo; 
000050 rMenuPtr = “rMenul nfo; 

000051 ItemPtr = *$tr255; 

000052 

000053 VAR 

000054 menuDel ay: INTEGER; 

000055 desktopMenu: ARRAY [0..1] OF Menul nfo; 
000056 

000057 PROCEDURE CalcMenuSize(VAR menu: Menul nfo); 
000058 

000059 PROCEDURE Checkltem( VAR menu: Menulnfo; item INTEGER; checked: BOOLEAN); 
000060 

000061 PROCEDURE ChooseTxtIl tem( VAR menu: Menulnfo; menuRect: Rect; hitPt: Point; 
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000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 


End of 
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VAR whichltem INTEGER); 


PROCEDURE Cl earMenuBar; 

PROCEDURE Del eteMenu( menuld: | NTEGER) 

PROCEDURE Disableltem( VAR menu: Menulnfo; item 
PROCEDURE DisableMenu(VAR menu: Menul nfo); 


PROCEDURE DrawMenuBar 


| NTEGER) ; 


PROCEDURE DrawTxtMenu(VAR menu: Menulnfo; menuRect: Rect); 


PROCEDURE Enableltem( VAR menu: Menulnfo; item 


PROCEDURE Enabl eMenu( VAR menu: Menul nfo); 


PROCEDURE GetIltem( VAR menu: Menulnfo; item INTEGER: 


PROCEDURE Hi LiteMenu( menuld: | NTEGER) 


PROCEDURE I nit Menus; 


PROCEDURE InsertMenu( VAR menu: Menulnfo; beforeld: 


PROCEDURE Markl tem( VAR menu: Menulnfo; item INTEGER; whichMark: 


INTEGER) ; 


| NTEGER) ; 


PROCEDURE MenuSelect(startPt: Point: VAR whichMenu, whichltem 


PROCEDURE MenuKey(ch: CHAR; VAR whichMenu, whichltem: INTEGER); 


PROCEDURE ReadMenu( VAR menuFile: TEXT; VAR menu: 


PROCEDURE Setitem( VAR menu: Menulnfo; item INTEGER: 


Menul nfo); 


itemString: 


itemString: 


ItemPtr); 


| NTEGER) ; 
INTEGER) ; 


ItemPtr); 


KEK KKK KARA KR KR KKK KKK RK KK KK ERK KARR KKK RK KR KK ARK ERK KKK KKK KR KKK KR KKK KKK KKK KKK KKK KKK 


x 


: THAT'S ALL FOLKS ... 
k 


KEK KKK KKK KK RRR KKK KKK RK KK KK ERK KR KK KKK EK KR KK ARK KR KKK KKK KKK KKK KK KKK KR KKK KAKA KKK KEK 
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000001 KEK KKK KKK KK RK K KKK KKK RK KK KK KKK KAKA KKK RK KR KK ARK KR KKK KKK KKK K KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : OBJIO 

000004 * 

000005 REGGIO IGG IGG GGG REE RARE 
000006 

000007 USES {$U+} OBJI0 


000008 

000009 

000010 {$lFC isIntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 (*$U OB) /PASDEFS. OB) *) PasDefs, 

000017 (*$U OB)/FILEI0.OB) *) Filelo 

000018 {$ELSEC } 

000019 (*$U OB): PASDEFS. OB) *) PasDefs, 

000020 (*$U OB): FILEI0.0B) *) Filelo 

000021 {$ENDC } 

000022 CONST 

000023 

000024 

000025 TMAXSEGS = 4096: 

000026 TMAXUNITS = 4096: 

000027 TMAXFILES = 1024; 

000028 TMAXSYSS = 127; 

000029 DLTASEGS = 128 

000030 DLTAUNITS = 128; 

000031 DLTAFILES = 32; 

000032 DLTASYSS = 16; 

000033 

000034 TYPE 

000035 BlockType = (ModuleName, EndBlock, EntryPoint, External, StartAddress 
000036 CodeBlock, Relocation, CommonReloc, CommonDef, 

000037 ShortExternal, DinitDef, DinitData, DinitRef, DlnitDRef 
000038 QuickLoad, OldExecutable, LibModule, LibEntry, UnitBlock 
000039 InterfLoc, PhysicalExec, Executable, VersionCtrl, 
000040 SegmentTable, UnitTable, SeglLocation, Ol dUntLoc 

000041 StringBlock, MACExecutable, PackedCode, PackTable 
000042 Di nitCRef, 

000043 {$1 FC isSAndE} 

000044 Soft System, 

000045 {$ENDC} 

000046 UnitLocation, OSData, DebugSymbols, DebugEntry, 

000047 DebugCommon, EOFMark, UnknownBl ock); 

000048 

000049 VariantType = (NoVariant, RefVariant, ShortRef, ModVariant, Comments, 
000050 SegVariant, UnitVariant, IntfLocVariant, SegLocVariant, 
000051 UnitLocVariant, OldULVariant, StringVariant 

000052 SftSysVariant, JumpTVariant, JTSegVariant, Obj ectCode 
000053 ProcHeap, OldjumpTV, Old) TSegV, MAC) umpTV, J ump4TV, 
000054 UnknownVari ant); 

000055 

000056 FileAddr = longi nt; 

000057 MemAddr = longi nt; 

000058 SegAddr = longi nt; 

000059 

000060 Obj FileType = (OldObjFile, | UDirectory, IULibrary, MainProg, IntrinUnit 
000061 RegUnit, RegModule, DbgFile, PITFile); 
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000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical 


Information 


VersNum 
VersVal 


ModVal = 


i Ref Variant 
i Short Ref 
i ModVariant 


iSegVariant = 


iUnitVariant = 


ilntfLocVari ant 


i SegLocVari ant 


iOldULVariant = 


iUnitLVariant = 


Apple Lisa Deskt 


- 1,.127; 
RECORD 
CASE boolean OF 
true: 
(VersLong: 
false: 
(System, 


longint); 


Release, 
END; 


RECORD 
CASE boolean OF 
true: 
(Modi nt: 
false: 


integer); 


(Impl Level, FixLevel 


END; 


SegAddr; 
integer; 
integer; 


RECORD 
SegName: NameStri ng; 
SegNumber: integer; 
Versionl: longint; 
Version2: longint; 
END; 


RECORD 
UnitName: NameString 
UnitNumber: integer 
UnitType: integer 
END; 


= RECORD 
UnitName: NameString; 
IflLoc: FileAddr; 
END; 


= RECORD 
SegName: NameString 
SegNumber: integer 
UseDescPtr: longint; 
UseCount: integer; 
SysNumber: integer 
FileNumber: integer 
FileLocation: FileAddr 
SizePacked: integer 

SizeUnpacked: integer 

END; 


RECORD 
UnitName: NameString 
UnitNumber: integer 
FileNumber, UnitType: 
DataSize: longint; 
END; 


RECORD 
UnitName: NameString 
UnitNumber: integer 
ShrdDataPtr: longint; 
UseCount, SysNumber 
UnitType: integer 
DataSize: longint; 
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Version, 


FileNumber, 
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InterFlevel: VersNum) 


Vers Num) 


Fil eByte; 


DataPtridx, 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
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{$I FC isSAndE} 


iSftSysVari ant 


{$ENDC} 


iStringVari ant 


i} umpTVari ant 


i Ol dj umpTV 


i MAC) ump TV 


i} ump4tv 


i Ol dj TSegV 


i} TSegVari ant 


i Modul eName 


i EndBl ock 


i EntryPoi nt 
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END; 
RECORD 
DSysidx: integer; 
DVersid: longint; 
END; 
RECORD 
Obj ectNumber: integer 
NameAddr: FileAddr; 
END; 
RECORD 
JumpL: integer; 
AbsAddr: MemAddr; 
END; 
RECORD 
Rel Offset: longi nt; 


Noop: integer 
Jump: integer 
PCRel: integer 


END; 

RECORD 
Rel Offset: integer; 
MoveW: integer; 
SegNum integer 
Traplnst: integer 

END; 

RECORD 
JumpPC: integer 
Rel Of fSet: integer; 

END; 

RECORD 
Addrl: MemAddr; 
FileLoc: FileAddr 
CodeSize: longint; 
MemLoc: MemAddr; 
RetAddr: MemAddr; 
Ref Count: | ongint; 
ActiveList: MemAddr; 
Reserved: l|ongint; 

END; 

RECORD 


SegmentAddr: Fil eAddr 
SizePacked: integer 
SizeUnpacked: integer 
MemLoc: MemAddr; 

END; 


RECORD 


Modul eName, SegmentName: NameStri ng; 


CSize: longint; 
END; 
RECORD 

CSize: longint; 
END; 


RECORD 
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000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
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LinkName, UserName: NameString 
Loc: SegAddr; 
END; 


i External = RECORD 
LinkName, UserName: NameString 
END; 


iStartAddress = RECORD 

Start: SegAddr; 
GSize: longint; 
D: 


END; 
i CodeBl ock = RECORD 
Addr: SegAddr; 
END; 
i Relocation = RECORD 
Reserved: integer 
END; 


iCommonRel ocation = RECORD 
CommonName: NameString 
END; 


iCommonDefi nition = RECORD 

CommonName: NameString 
DSize: longint; 
END; 


iShortExternal = RECORD 
LinkName, UserName: NameString 
END; 


i DI ni t Def = RECORD 

d_areaName: NameString 
DSize: longint; 
END; 


i DI nitData = RECORD 
d_areaName: NameString 
dAddr: longint; 
DSize: longint; 


END; 
i DI nit Ref = RECORD 
d_areaName: NameString 
END; 
i DI ni t DRef = RECORD 
d_areaName: NameString 
d_ Off: longint; 
rAreaName: NameString 
END; 
i QuickLoad = RECORD 


StartLoc: SegAddr 
DataSize: longint; 
END; 


i Li bModule = RECORD 
Modul eName: NameString; 
ModSize: longint; 
CodeAddr, TextAddr: FileAddr 
TextSize: longint; 
NrMods: integer; 
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000260 END; 

000261 

000262 iLibEntry = RECORD 

000263 LinkName: NameString 

000264 Module: integer 

000265 Address: SegAddr 

000266 END; 

000267 

000268 i Uni t Bl ock = RECORD 

000269 UnitName: NameString 

000270 CodeAddr, TextAddr: FileAddr 

000271 TextSize, GlobalSize: longint 
000272 UnitType: integer 

000273 END; 

000274 

000275 ilnterfLloc = RECORD 

000276 Reserved: integer 

000277 END; 

000278 

000279 iExecutable = RECORD 

000280 JTLaddr: MemAddr 

000281 JTSize, DataSize, MainSize, JTSegDelta, StkSegDelta, 
000282 DynStack, MaxStack, MinHeap, MaxHeap: longi nt; 
000283 END; 

000284 

000285 i OldExecutable = RECORD 

000286 JTLaddr: MemAddr 

000287 JTSize, DataSize: longint; 

000288 END; 

000289 

000290 iPhysicalExec = RECORD 

000291 JTLaddr: MemAddr 

000292 JTSize, DataSize, MainSize, | TSegDelta, 
000293 StkSegDelta: longint; 

000294 END; 

000295 

000296 i MACExecutable = RECORD 

000297 JTLaddr: MemAddr 

000298 JTSize, DataSize, MainSize, | TSegDelta, 
000299 StkSegDelta: longint; 

000300 END; 

000301 

000302 iVersionCtrl = RECORD 

000303 CASE boolean OF 

000304 true: 

000305 (sysNum, minSys, maxSys, Reservl, Reserva2, 
000306 Reserv3: longint); 

000307 false: 

000308 (FileType: Obj FileType 
000309 }LibNum VersNum 

000310 Config: VersVal 

000311 ModLevel: ModVal 

000312 IntfTime, Impl Time: | ongint; 
000313 MinConfig, MaxConfig: VersVal ) 
000314 END; 

000315 

000316 i Segment Table = RECORD 

000317 nSegments: integer; 

000318 END; 

000319 

000320 i Unit Table = RECORD 

000321 nUnits, maxunit: integer; 

000322 END; 

000323 

000324 iSegLocation = RECORD 

000325 nSegments: integer; 
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000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
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i Ol dUntLoc = 


iUnitLocation = 


i OSData = 


iStringBlock = 


{$1 FC isSAndE} 
iSoftSystem = 


{$ENDC} 


i PackedCode = 


i PackTable = 


i Di nit CRef 7 


iDebugSymbols = 


iDebugEntry = 


iDebugCommon = 


i Unknown = 


Obj Bl ock = 
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END; 
RECORD 
nUnits: integer 
END; 
RECORD 
nUnits: integer 
END; 
RECORD 
Reserved: integer 
END; 
RECORD 
nStrings: integer 
END; 
RECORD 
SysNumber: integer; 
PublicSeg: integer; 
SysVersion: VersVal 
Reserved: longint; 
END; 
RECORD 
Addr: MemAddr; 
CSize: longint; 
END; 
RECORD 
packversion: longint; 
END; 
RECORD 
d_areaName: NameString 
d_ Off: longint; 
entryName: NameString 
END; 
RECORD 
UserName, SegName: NameString; 
ProcBase, ProcSyms, ProcStmt, ProcNode 
UsesSize: longint; 
HoleBase, HoleTop, MapBase, MapTop: | ongint; 
MapName: NameStri ng; 
END; 
RECORD 
UserName: NameString 
EntrySeg: longi nt; 
EntryLoc: SegAddr 
END; 
RECORD 
UnitName: NameString 
CommonBase: MemAddr 
END; 
RECORD 
{ nothing here } 
END; 
RECORD 
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Obj Var BI ock 


Var 
Nrv 


iant 
ariants: 


: VariantType; 
Longl nt; 


CASE BlockHeader: BlockType OF 


END; 


RECORD 
CAS 


Modul eName 
EndBl ock 

Entry Poi nt 
External 
StartAddress : 
CodeBl ock 
Relocation 
CommonRel oc 
CommonDef 
ShortExternal: 
DI ni t Def 

Di nitData 

DI ni t Ref 

DI ni t DRef 
QuickLoad 

Ol dExecutable: 
Li bModule 
LibEntry 
Unit Bl ock 
InterfLoc 
Physical Exec : 
MACExecutable: 
Executable 
VersionCtrl 
Segment Table 
UnitTable 
SegLocation 
UnitLocation : 
Ol dUnt Loc 
StringBl ock 
PackedCode 
PackTable 

Di nit CRef : 
{$1 FC isSAndE} 
SoftSystem 
{$ENDC} 

OSData : 
DebugSymbols : 
DebugEntry 
DebugCommon 
UnknownBlock : 


E VarHeader 
Ref Vari ant 
Short Ref 
ModVari ant 
SegVari ant 
Unit Variant 
IntflLocVariant: 
SegLocVariant : 
UnitLocVariant: 
{$1FC isSAndE} 
SftSysVariant : 
{$ENDC} 

Ol dULVari ant 
StringVariant : 
Ol dj umpTV 

MAC) umpTV 

J ump4TVv 

Ol dj) TSegV 
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( bModul eName 

( bEndBl ock 
(bEntryPoi nt 
(bExternal 
(bStartAddress 

( bCodeBl ock 
(bRel ocati on 

( bCommonRel oc 

( bCommonDef 
(bShortExternal: 
(bDI nit Def 

(bDI nitData 

(bDI nit Ref 

( bDI nit DRef 
(bQuickLoad 

(bOl dExecutable: 
(bLi bModule 
(bLibEntry 
(bUni tBl ock 

(bl nterfLoc 
(bPhysicalExec : 
(bMACExecutable: 
(bExecutable 
(bVersi onCtrl 
(bSegment Table 
(bUnitTable 
(bSegLocation 
(bUnitLocation 
(bOl dUntLoc 
(bStringBl ock 

( bPackedCode 
(bPackTable 
(bDI nit CRef 


(bSoftSystem 


(bOSData : 
(bDebugSymbols : 
(bDebugEntry 

( bDebugCommon 

( bUnknown 


: VariantType OF 


(bRef Variant 
(bShort Ref 

(bModVariant 
(bSegVari ant 
(bUnit Variant 


(bl ntflLocVariant: 
(bSegLocVari ant 


(bUnitLVari ant 


(bSftSysVari ant 


(bOl dULVari ant 


(bStringVari ant 


(bOl dj umpTV 
( bMAC) umpTV 
(bJ ump4TV 

(bOl dj TSegV 
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i Modul eName) ; 

i EndBl ock); 

i EntryPoi nt); 

i External); 
iStartAddress); 
i CodeBl ock); 

i Relocation); 

i CommonRel oc); 
i CommonDef ); 
iShortExternal ); 
i Di nitDef); 

i Di nitData); 

i Di nitRef); 

i Di nit DRef); 

i QuickLoad); 

i Ol dExecutable); 
i Li bModule); 
iLibEntry); 

i Unit Bl ock); 
ilnterfloc); 

i Physical Exec); 
i MACExecutable); 
i Executable); 
iVersionCtrl); 
i Segment Table); 
iUnitTable); 

i SegLocati on); 
i UnitLocation); 
i Ol dUntLoc); 

i StringBlock); 
i PackedCode); 

i PackTable); 

i Di nitCRef); 


iSoftSystem); 


i OSData); 

i DebugSymbols); 
i DebugEntry); 

i DebugCommon) ; 
i UnknownBl ock); 


iRefVariant); 
i Short Ref); 

i ModVariant); 
i SegVari ant); 
i UnitVariant); 


i UnitLVariant); 


i Ol dULVariant); 


i Ol dj umpTV) ; 
i MAC} umpTV) ; 
iJ ump4TV); 

i Ol dj TSegV); 


ilntfLocVari ant); 
i SegLocVari ant); 


iSftSysVariant); 


iStringVari ant); 
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000458 J umpTVari ant (bj) umpTVariant : ij umpTVariant) 
000459 JTSegVariant : (bj) TSegVariant : ij TSegVariant) 
000460 END; 

000461 

000462 Obj Handle = “Obj Desc; 

000463 

000464 Obj Desc = RECORD 

000465 Obj File: FileHandle; 

000466 Next Block: FileAddr 

000467 END; 

000468 

000469 VAR 

000470 VariantSize: ARRAY [VariantType] OF integer 

000471 Ol Al lowAbort: BOOLEAN 

000472 

000473 PROCEDURE InitObj File(VAR Obj Ptr: Obj Handle; nBlocks: integer) 
000474 

000475 PROCEDURE OpenObj File(VAR Obj Ptr: Obj Handle; FileName: LString; 
000476 NewFile: bool ean) 

000477 

000478 PROCEDURE ZeroObj End( Obj Ptr: Obj Handle); 

000479 

000480 PROCEDURE CloseObj File(Obj Ptr: ObjHandle; Save: boolean) 

000481 

000482 PROCEDURE Get Obj Ptr(Obj Ptr: Obj Handle; VAR BytePtr: FileAddr); 
000483 

000484 PROCEDURE Get Obj BlockPtr(Obj Ptr: Obj Handle; VAR BytePtr: Fil eAddr) 
000485 

000486 PROCEDURE SetObj Ptr(Obj Ptr: Obj Handle; BytePtr: FileAddr); 
000487 

000488 PROCEDURE Set Obj BlockPtr(Obj Ptr: Obj Handle; BytePtr: FileAddr) 
000489 


000490 PROCEDURE Ski pObj Bytes(Obj Ptr: ObjHandle; NrBytes: | ongint) 
000491 


000492 PROCEDURE SetObjinvar(VAR B: Obj Block; InvarType: BlockType 
000493 VarSize: longint); 
000494 


000495 PROCEDURE CopyObj Seq(InObj, OutObj: Obj Handle; NrBytes: integer) 
000496 

000497 PROCEDURE Get Objinvar(Obj Ptr: Obj Handle; VAR Stuff: Obj Block); 
000498 


000499 PROCEDURE Get Obj Var(Obj Ptr: Obj Handle; VarType: VariantType 
000500 VAR Stuff: Obj Var Bl ock) 

000501 

000502 PROCEDURE Get Obj Name( Obj Ptr: Obj Handle; VAR N: NameString) 
000503 

000504 PROCEDURE Get Obj Seq(Obj Ptr: Obj Handle; Stuff: Ptr; NrBytes: integer); 
000505 

000506 PROCEDURE Get Obj Byte( Obj Ptr: Obj Handle; VAR B: Byte); 

000507 

000508 PROCEDURE Get Obj Word( Obj Ptr: Obj Handle; VAR W integer) 

000509 

000510 PROCEDURE Get Obj Long( Obj Ptr: Obj Handle; VAR L: longint); 
000511 

000512 PROCEDURE Put Objinvar(Obj Ptr: Obj Handle; VAR Stuff: Obj Block); 
000513 

000514 PROCEDURE Put Obj Var(Obj Ptr: Obj Handle; VarType: VariantType 
000515 VAR Stuff: Obj VarBl ock) 

000516 

000517 PROCEDURE Put Obj Name( Obj Ptr: Obj Handle; N: NameString) 

000518 

000519 PROCEDURE PutObjSeq(Obj Ptr: Obj Handle; Stuff: Ptr; NrBytes: integer); 
000520 

000521 PROCEDURE PutObj Byte( Obj Ptr: Obj Handle; B: Byte) 

000522 

000523 PROCEDURE Put Obj Word( Obj Ptr: Obj Handle; W: integer); 
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000524 
000525 
000526 
000527 
000528 
000529 
000530 
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PROCEDURE PutObjLong( Obj Ptr: Obj Handle; L: longint 


i 


KEK KKK KKK KK RRR KKK KKK RK KK KKK RK KR KR KKK KK KR KK ARK RR KKK KK RRR RAK RK K KKK KKK KKK KKK KKK KKK 


x 


‘ THAT'S ALL FOLKS ... 
k 


KEK KKK KKK KK RK KKK KKK KR KKK KK KKK KR KK KKK EK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KR KKK KK KKK KKK 


File -- Lines: 532 Characters: 19082 
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FILE: "LISA LIB 3 PARTS. TEXT" 

000001 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KK KKK RK KK KKK KK KK KEK KK KKK KKK 

000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PARTS 

000004 * 

000006 

000007 USES {$U+} PARTS; 

000008 

000009 

000010 {$I1FC isIntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 (*$U OB) /PASDEFS. OB) *) PasDefs, 

000017 (*$U OB) /MEMMAN. OB) *) MemMan, 

000018 (*$U OBJ/LISTS. OBJ *) Lists; 

000019 {$ELSEC } 

000020 (*$U OB): PASDEFS. OB) *) PasDefs, 

000021 (*$U OB): MEMMAN. OB) *) MemMan, 

000022 (*$U OB): LISTS. OB) *) Lists 

000023 {$ENDC } 

000024 

000025 TYPE 

000026 

000027 

000028 Class = integer 

000029 Member = integer; 

000030 Member Rec = RECORD 

000031 memberOf: Class 

000032 next Member: Member; 

000033 firstMember: Member 

000034 END; 

000035 MemRowPt r = “MemRow 

000036 Me mR ow = ARRAY [ - 128..127] OF Member Rec; 

000037 MemArr Ptr = *MemArr; 

000038 MemArr = ARRAY [ - 128..127] OF MemRowPtr; 

000039 PRHandle = “Partition; 

000040 Partition = RECORD 

000041 nClasses, nMembers: longint; 

000042 classes, members: MemArrPtr 

000043 END; 

000044 PartHandle = “PartObj ect; 

000045 Part Obj ect = RECORD 

000046 storP: PRHandle; 

000047 partL: ListHandle; 

000048 END; 

000049 

000050 PROCEDURE NewClass(partH: PartHandle; cl: Class); 

000051 

000052 PROCEDURE AddMember(partH: PartHandle; mem: Member; cl: Class) 

000053 

000054 PROCEDURE DeleteMember(partH: PartHandle; mem: Member; cl: Class) 

000055 

000056 FUNCTION IsEmptyClass(partH: PartHandle; cl: Class): boolean; 

000057 

000058 PROCEDURE EachMember(partH: PartHandle; cl: Class; PROCEDURE 

000059 Visit(m= Member) ) 

000060 

000061 FUNCTION ClassOf(partH: PartHandle; mem: Member): Class 
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000062 

000063 PROCEDURE RevMembers(partH: PartHandle; cl: Class) 

000064 

000065 PROCEDURE I nitPLists 

000066 

000067 FUNCTION MoreMembers(partH: PartHandle; n, newRow: integer): boolean; 
000068 

000069 FUNCTION MoreClasses(partH: PartHandle; n, newRow: integer): boolean; 
000070 

000071 FUNCTION InitPartition(nCl, nMem: longint; abst: PartHandle): PartHandle; 
000072 

000073 KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK RK KK KK KEK KK KK KEK KK KKK KKKK 
000074 * 

000075 * THAT'S ALL FOLKS .. 

000076 * 


000077 KEK KKK KAR KK RK RRR KK RRR KKK KK KR KK RK RRR KEK KR KK RRA RR KKK KR KKK RK KR KK KKK KR KR KKK KK KKK KEK 


000078 


End of File -- Lines: 78 Characters: 2253 
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FILE: "LISA LIB 3 PASDEFS. TEXT" 


000001 KEK KKK KARA KARR KKK KKK RK KR KKK RK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PASDEFS 

000004 * 

000005 REGGIO GGG IGG GRRE RAKES 
000006 

000007 USES {$U+} PASDEFS 


000008 

000009 

000010 {$IFC isIntrin} INTRINSIC; {$ENDC} 
000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 {$U OB) /STDUNIT } STDUNIT; 
000017 {$ELSEC } 

000018 {$U OB): STDUNIT } STDUNIT; 
000019 {$ENDC } 

000020 

000021 {$SETC RANGEF = 0 } 

000022 {$SETC DEBUGF = 0 } 

000023 {$SETC INFOF = 1 } 

000024 

000025 CONST 

000026 

000027 

000028 NameStrLen = 8; 

000029 MaxLStringLen = 79 

000030 Bl ank Shots 

000031 Empty =! 

000032 

000033 TYPE 

000034 NameString = PACKED ARRAY [1..NameStrLen] OF char 
000035 LString = String[MaxLStringLen] 
000036 PLString = “LString; 
000037 MemPt r = “integer 
000038 ProcPtr = “integer 
000039 

000040 VAR 

000041 errors: integer 

000042 ListingFile: Text; 

000043 ListFl ag: bool ean; 

000044 

000045 PROCEDURE I nitPasDefs:; 

000046 

000047 PROCEDURE PasHalt; 

000048 

000049 PROCEDURE SumErrors 

000050 

000051 PROCEDURE Warning(s: LString); 
000052 

000053 PROCEDURE Error(s: LString); 
000054 

000055 PROCEDURE FatalError(s: LString); 
000056 

000057 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KK KKK RK KK KKK KK KK RK KK KK EKA KKK 
000058 * 

000059 * THAT'S ALL FOLKS .. 
000060 * 


000061 KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KARR KKK RK KR KK ARK ERK KKK KKK KR KKK KKK KKK RK KKK KKK KKK KEK 
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000062 


End of File -- Lines: 62 Characters: 1217 
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FILE: "LISA LIB 3 PASHEAP. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RK RRR K RK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KKK KAKA KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PASHEAP 

000004 * 

000005 RGGI IGG IGG GGG GGG IGG IGG IGG RRR RAKES 
000006 

000007 USES {$U+} PASHEAP; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 (*$U libos/syscall.obj*) syscall 

000016 

000017 TYPE 

000018 PHTB = + 128,,127 

000019 PHTP = *PHTB; 

000020 

000021 PROCEDURE PLINITHEAP(VAR ernum, refnum: integer; size, delta: longint 
000022 Idsn: integer; swapable: bool ean) 
000023 

000024 PROCEDURE % NEW VAR ptr: PHTP; size: integer) 
000025 

000026 PROCEDURE % NEWL(VAR ptr: PHTP; Isize: longint); 
000027 

000028 PROCEDURE % MARK(VAR ptr: PHTP) 

000029 

000030 PROCEDURE % RELSE(VAR ptr: PHTP) 

000031 

000032 FUNCTION % MEMAV: LONGI NT; 

000033 

000034 FUNCTION % HHeapRes: integer; 

000035 

000036 PROCEDURE % pphhprei nit; 

000037 

000038 PROCEDURE % pphhrei nit; 

000039 

000040 FUNCTION % phwordsavail: longint; 

000041 

000042 PROCEDURE % disp(VAR ptr: PHTP; size: longint); 
000043 


0000404 REG I GGG IGG IGG IGG GGG RG RRR RARE 
000045 * 

000046 * THAT'S ALL FOLKS ... 

000047 * 

000048 RR GGG IGG IGG IGG ICG IGG GGG GGG IGG IGG RRR RAKES 


000049 


End of File -- Lines: 49 Characters: 1057 
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000001 KEK KKK KAR KKK KK KKK KKK RK KR KK KR KK RK RRR KEK KR KK ARK KR KKK KKK KKK KKK KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PMDECL 

000004 * 

000005 RGGI IGG IGG IGG GGG IGG GGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} PMDECL; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libos/syscall } syscall; 

000016 

000017 CONST 

000018 ThreshHol d = 8; 

000019 

000020 TYPE 

000021 TNi bble = 0..15; 

000022 TBoot Stuff = RECORD 

000023 ExtendMem: Bool ean; 
000024 Boot Vol: TNibble: 
000025 END; 

000026 TOut PutStuff = RECORD 

000027 NormCont: TNibble; 
000028 Di mCont: TNibble: 
000029 BeepVol: TNi bbl e; 
000030 FadeDelay: TNibble; 
000031 END; 

000032 Ti nput Stuff = RECORD 

000033 BeginRepeat: TNi bble; 
000034 SubRepeat: TNi bbl e; 
000035 DoubleClick: TNibble; 
000036 END; 

000037 Tinternal Stuff = RECORD 

000038 Mem Loss: integer; 
000039 Mouseon: Bool ean; 
000040 ScaleMouse: Bool ean; 
000041 END; 

000042 TypeConnect = string[32]; 

000043 Ch_info = RECORD 

000044 version: integer; 
000045 driver_id: longi nt; 
000046 bootable: boolean; 
000047 preload: boolean; 
000048 permanent: bool ean; 
000049 devicetype: devtype; 
000050 size_exten: integer; 
000051 def _cdinfo: ARRAY [1..3] OF integer; 
000052 removable: boolean: 
000053 ejectable: boolean; 
000054 fs_start_block: longint; 
000055 start block: longint; 
000056 numattach: integer; 
000057 numConnectors: integer; 
000058 END; 

000059 cddEntry = RECORD 

000060 drvr_name: e name; 
000061 active: integer; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
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info: ch_info; 
END; 
cddHeader = RECORD 


version: integer 
cdcount: integer; 
END; 
systemCdd = RECORD 
descr: cddheader 
END; 


KEK KKK KARA KR KR KKK KKK RK KR KK KR KK RK RRR KKK KR KK ARK KR KKK KKK KER KKK KKK RK KR KKK KAKA KKK KEK 


x 


* THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KKK KK KKK KKK RK KK KK KKK KR KR KKK EK KR KK ARK KR KKK KKK RRR KKK KK KKK KR KR KKK KK KKK KEK 
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FILE: "LISA LIB 3 PMM. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KR KK ERK KR KR KKK RK KR KKK RK KR KKK KKK KKK KR KK KKK KKK KKK KKK KKK KKK 


000002 * 
000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PMM 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG IGG IGG IGG IGG GRRE RARE 
000006 

000007 USES {$U+} PMM; 

000008 

000009 

000010 INTRINSIC SHARED 

000011 

000012 INTERFACE 
000013 

000014 USE 
000015 

000016 


bs) 
{$U li bhw/ hwint} HWot, 
{$U 
000017 {$U 
{$U 
{$5 


ibos/Syscall} SysCall 
ibsm/ UnitStd} UnitStd 
i bpm/ PMDecl } PMDecl 
C DOPXPM := FALSE} 


000018 
000019 
000020 
000021 VAR 
000022 PMBeep Flash: TNi bble; 

000023 

000024 PROCEDURE Pmi nit( VAR error: integer) 

000025 

000026 PROCEDURE PMReadConfig(VAR error: integer; VAR NextEntry: longint; 
000027 VAR Config: ConfigDev) 

000028 

000029 PROCEDURE PMWriteConfig(VAR error: integer; VAR NextEntry: longi nt; 
000030 VAR Config: ConfigDev); 

000031 

000032 PROCEDURE PMReadI nput(VAR InputI nfo: TilnputStuff); 

000033 

000034 PROCEDURE PMWritel nput(Inputi nfo: TilnputStuff); 

000035 

000036 PROCEDURE PMReadOut Put(VAR Outputinfo: TOutputStuff); 
000037 

000038 PROCEDURE PMWriteOut Put( Outputinfo: TOutputStuff); 

000039 

000040 PROCEDURE PMReadBoot( VAR BootI nfo: TBootStuff); 

000041 

000042 PROCEDURE PMWriteBoot(BootI nfo: TBoot Stuff); 

000043 

000044 PROCEDURE PMWri te: 

000045 

000046 FUNCTION DimConvert(Contrast: Integer): Integer 

000047 

000048 FUNCTION ConvertCont(Contrast: Integer): Integer 

000049 

000050 PROCEDURE PMReadDevol p(VAR Intrnilnfo: Tlnternal Stuff); 
000051 

000052 PROCEDURE PMWriteDevol p(Intrnilnfo: Tilnternal Stuff); 

000053 

000054 PROCEDURE Default PM 

000055 

000056 PROCEDURE DefaultConfig; 

000057 {$1 FC DOPXPM} 

000058 

000059 PROCEDURE PxPm 

000060 {$ENDC} 

000061 


4a-—-——— 
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KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK EK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KEK 


x 


; THAT'S ALL FOLKS ... 


KEK KKK KAR KKK KKK KKK KR KKK KK KKK KR KK KKK RK KR KK ARK KR KKK KKK KKK KKK KKK RK KR KKK KAKA KKK KKK 
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FILE: "LISA LIB 3 POOLER. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KR KK ERK KR KR KKK RK KR KK RK K KR KKK KK KKK RK KR KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : POOLER 

000004 * 

000005 RR GGG GGG IGG IGG GGG IGG IGG IGG IGG IGG RGR RAKES 
000006 

000007 USES {$U+} POOLER 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC OSBuilt } 

000016 {$U libsm/unitstd. obj } unitstd, 
000017 {$U libdb/dbenv.obj } dbenv 
000018 {$U libin/INTRLIBp. obj } international 
000019 {$U libdb/dbdecl1.obj } dbdecll, 
000020 {$U libos/syscall.obj } syscall 
000021 {$U libos/psyscall.obj } psyscall 
000022 {$U libdb/lowlevel.obj } lowlevel 
000023 {$ELSEC } 

000024 {$U OB): dbenv.obj } dbenv, 
000025 {$U I NTRLIB. obj } international 
000026 {$U OB): dbdecl1.obj } dbdecll, 
000027 {$U OBJ: syscall.obj } syscall 
000028 {$U OB): lowlevel.obj } lowlevel 
000029 {$ENDC } 

000030 

000031 Const 

000032 

000033 

000034 {$SETC NOSWAP := FALSE } 

000035 {$SETC debug := FALSE } 

000036 {$l FC PRERELEASE } 

000037 {$SETC debugpool := TRUE } 

000038 {$ELSEC } 

000039 {$SETC debugpool := FALSE } 

000040 {$ENDC} 

000041 VOmyprod_ vers = 0 

000042 myprod vers = 1; 

000043 nilptr =- 1; 

000044 nil val Sacer 

000045 fisbtree = 0 

000046 fhasnull = 1; 

000047 f master = 2; 

000048 f detail = 3; 

000049 ffileok = 4; 

000050 fdata =: 5: 

000051 writenon = 5; 

000052 noerr = 0; 

000053 not f ound = 1; 

000054 dupl key = 2; 

000055 eos = 3: 

000056 fileempty = 4 

000057 nobuf fs = 3404 

000058 ioerr = 3405: 

000059 noroom = 3406; 

000060 inconsistent = 3407; 

000061 badscanid = 3408; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical 


Information 


ticketoverflow = 3409 


ticketchanged = 3410 
badrecaddress = 3412: 
oddrecsize = 3413; 
badnsearch = 3414 
badwhi ch = 3415; 
illegalscan = 3416 
rectoobig = 3417; 
notdbfile = 3418; 
wrongfile = 3419; 
badversion = 3420 
hasschema = 3421; 
badpagesize = 3425; 


DBVersionMismatch = 3426 
DBTooOld 3427; 
DBTooNew 3428 
empty 0; 

clean 

dirty 
readonly 
update 

label readonly 
label update 
first 

last 

approx 

exact 

current 

prior 

next 
touch by _vitre 
touch delete 
untouched 
leaftype 
nonleaftype 
labeltype 
freetype 
label keys 
labelflds 

| abel bnd 


"NRK TOO RPWNFOWNF ON 


Ho aan aoa 


TYPE 
uni queid 
filel abel 


uid; 

RECORD 
check_1_it: integer 
DBvers: byte; 
USERvers: byte; 
updateversion: integer 
flags: elemset; 
firstpage, lastpage: fileptr 
nrecs: fileptr; 
pagesize: integer 
nfields: integer; 
nkeys: integer; 
nsort: integer; 
vflds: integer; 
kvflds: integer; 
depth: integer; 
root: fileptr; 
freelist: fileptr; 
labellist: fileptr; 
labeltickets: fileptr; 
tickets: ticket; 
ticketfld: integer; 
funiqueid: uni queid; 
check _2_it: integer 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
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pagedesc 


ptrpagedesc 
vacttype 


stackrec 


ptrstackrec 
pagestack 
ptrpagestack 
labelentry 


ptrilabelentry 
offsets 
ptroffsets 
ptrscandesc 
ptrfiledesc 
filedesc 


END; 
RECORD 
nkeys: integer; 
ptype: integer 
CASE boolean OF 
true: 
(prior: fileptr; 
next: fileptr); 
false: 
(free: fileptr; ) 
END; 
“pagedesc; 
(undone, del, split, split_replace, rot, rot_replace, 
irot, irot_replace, merge, merge replace, NoSibEmpty) 
RECORD 
numkeys, index: integer 
page: fileptr; 
rec_Ipage, rec_rpage: fileptr; 
CASE vact: vacttype OF 
irot, irot_replace: 
(unrotPt: integer 
insindex: integer); 
del, rot, merge, NoSibEmpty: 
(delsize: integer; 
delrec: ptrdata); 
END; 
“stackrec; 
ARRAY [0..0] OF stackrec 
“pagestack; 
RECORD 
Itype: integer; 
enum: fileptr; 
seq: integer; 
varfld: vfld 
END; 
“lLabelentry; 
ARRAY [0..0] OF integer 
“offsets; 
“scandesc; 
“filedesc; 
RECORD 
check_1_it: integer 
DBvers: byte; 
USERvers: byte; 
updateversion: integer 
flags: elemset; 
firstpage, lastpage: fileptr 
nrecs: fileptr; 
pagesize: integer 
nfields: integer; 
nkeys: integer; 
nsort: integer; 
vflds: integer; 
kvflds: integer; 
depth: integer; 
root: fileptr; 
freelist: fileptr; 
labellist: fileptr; 
labeltickets: fileptr; 
tickets: ticket; 
ticketfld: integer; 
funiqueid: uni queid; 
check _2_it: integer 
openid: uid; 
pnext: integer; 
pkeyfiles: integer; 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
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scandesc 


| mhandle 
diffdesc 


ptrdiffdesc 
QChkPt Desc 


ptr QChkPt Desc 
buf fdesc 


readers, writers: integer 
fstatus: integer; 

scans: integer; 

frefno: integer; 

pedesc: ptrrecptr; 
pkdesc: ptrrecptr 
pfldset: ptrbits 
firstvfld: integer; 
lastvfld: integer 
lastvsfld: integer; 


END; 
RECORD 


onfile, viafile: integer; 
fnext: integer; 
touched: integer; 
intent: integer; 
position: integer 
ptrcos: ptrdata; 
cossize: integer; 
keypage: fileptr; 
qpage: fileptr 
keyindex: integer 
qindex: integer 
ufldset: bits; 


END; 
fi nt8; 
RECORD 


diffid: integer 

realid: integer; 

on, via: integer; 
vpage: fileptr 

vindex: integer; 
curhandle: I mhandle; 
have an_update, reversescan: bool ean; 
whichway: integer; 
pdfilter: ptrdata; 
pkfilter: ptrdata; 
plow, phigh: ptrdata; 
niflds, nhflds: integer 
CheckPtSize: integer 
nullset: bits; 


END; 
A“diffdesc: 
RECORD 


CPtSize: integer 
CPtLowSize: integer 
CPtHi ghSize: integer 
CPtDfilterSize: integer 
CPtKfilterSize: integer 
CPtnhflds, CPtnifids: integer; 
CPtwhichway: integer 
CPtvpage: fileptr 
CPtvindex: integer; 
CPtcurhandle: | mhandle: 
CPtreversescan: boolean; 
hasVia: boolean: 

Clear: boolean; 

Good: bool ean; 
viaUniqueid: uni queid; 


END; 
AQChkPt Desc 
RECORD 


pbuff: ptrdata; 
state: integer; 
locks: integer; 
pfile: integer 
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000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
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page: fileptr; 
priority: integer 


END; 
pool = ARRAY [0..0] OF buffdesc 
ptrpool = “pool; 
filetable = ARRAY [0..0] OF ptrfiledesc; 
ptrfiletable = “*filetable 
scantable = ARRAY [0..0] OF ptrscandesc; 
ptrscantable = “*scantable; 
difftable = ARRAY [0..0] OF ptrdiffdesc; 
ptrdifftable = “difftable 
VAR 
{$1FC PRERELEASE } 
pdebug: bool ean; 
{$ENDC} 
psize: integer; 
popenobj: integer; 
pfiletable: ptrfiletable 
nfiles: integer; 
pscantable: ptrscantable 
nscans: integer; 
pdifftable: ptrdifftable 
ndiffs: integer 
lab_desc: ARRAY [0..]abelbnd] OF flddesc 
pstack: ptrpagestack; 


curdepth, maxdepth: integer 
pbuff_segment: longi nt; 
buff segment: integer 


buf f pool: ptrpool; 
ticks: integer; 
last buff: integer; 
uiddesc: flddesc: 


isleaf, isnonleaf, isroot: integer 
dont_use freelist: boolean; 

{$1 FC DEBUGPOOL } 

labwrites, datawrites, datareads: integer 
{$ENDC } 

{$l FC PRERELEASE } 


PROCEDURE dumpbuff(first, last: integer); 
{$ENDC } 


PROCEDURE Il ockbuff(VAR presult: integer; VAR buffer: integer); 


PROCEDURE relbuff(VAR presult: integer; buffer: integer 
relpriority: integer); 


PROCEDURE dowritenon(VAR presult: integer; fileid: integer) 


PROCEDURE getpage(VAR presult: integer; VAR buffer: integer; fileid: integer 
rpage: fileptr; noinconsistent: boolean); 


PROCEDURE putpage(VAR presult: integer; buffer: integer; fileid: integer 
wpage: fileptr); 


PROCEDURE checkpt(VAR presult: integer; fileid: integer; newstate: integer); 
PROCEDURE doclose(VAR presult: integer; fileid: integer); 

FUNCTION no_room(presult: integer): boolean; 

PROCEDURE force out(VAR presult: integer; fileid: integer; wpage: fileptr); 


PROCEDURE Pagelnvalidates(fileid: integer); 
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000326 
000327 
000328 
000329 
000330 
000331 


End of 
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KEK KKK KAKA KR KR KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KKK RK ERK KKK KKK KKK KKK 


x 


‘ THAT'S ALL FOLKS ... 


x 


KEK KKK KAR KK RK K KKK KKK RK KK KK ERK KR KK KKK ERK RK KARA KR KKK KKK KKK KKK KKK RK KR KK KKK KK KKK KKK 


File -- Lines: 331 Characters: 11109 
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FILE: "LISA LIB 3 PRBUF. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KAKA KKK RK KR KKK RK ERK KK KK KKK RK KR KK KKK KARR KKK KK KKK KEK 


000002 * 
000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRBUF 
000004 * 
000005 KKK KKKKKK KKK KKK RRR ARK KK KKK KKK KKK ARK KKK KKK KKK KK ARK ARK KKK KKK KKK KK ARK KK KKKKKKKKKE 
000006 
000007 USES {$U+} PRBUF; 
000008 
000009 
000010 INTRINSIC; 
000011 
000012 INTERFACE 
000013 
000014 USES 
000015 {$U LibOS/SysCal 
000016 {$U Li bPM/ PMDec 
000017 {$U Li bSM/ UnitStd 
000018 {$U Li bSM/ Unit Hz 
000019 {$U LibQD/ Storage 
000020 {$U Li bQD/ QuickDraw 
{$U 
{$U 


SysCall, 
PMDecl, 
Unit Std, 
UnitHz, 
Storage, 
QuickDraw 
Font Mgr, 
PrStdli nfo; 


000021 Li bFM/ Font Mgr 
000022 Li bPr/ PrStdi nfo 
000023 

000024 TYPE 

000025 TPbCmd (pbCmdText, pbCmdHRule, pbCmdVRul e) 
000026 TPbCommand RECORD 

000027 h: TC: 

000028 vi TC: 

000029 CASE pbhCmd: TPbCmd OF 
000030 pbCmdText: 

000031 (cFont: TC: 
000032 seteface: Style; 
000033 cFirstChar: TC; 
000034 cLength: TC); 
000035 pbCmdHRul e: 

000036 (cWidth: TC); 
000037 pbCmdVRul e: 

000038 (cHeight: TC); 
000039 END; 

000040 TPhData PACKED ARRAY [0..32000] OF CHAR 
000041 TPPbData “TPhData; 

000042 THPbData ATPPbData; 

000043 TPbhProcs ARRAY [TPbCmd] OF TProc 
000044 TPhi nstal | RECORD 

000045 chkProcs: TPbProcs; 
000046 dumpProcs: TPbProcs 
000047 scanLine: TProc 

000048 END; 

000049 

000050 VAR 

000051 rPrBounds: Rect; 

000052 HOffSet, VOffSet: Integer; 

000053 

000054 PROCEDURE PbCl ose 

000055 

000056 PROCEDURE PbDumpBand 

000057 

000058 PROCEDURE PbHRule(cLength: TC); 

000059 

000060 PROCEDURE PbhOffSet(HOff, VOff: Integer); 
000061 


ee ee ee a a 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 


End of 
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PROCEDURE PbhOpen(install: TPbinstall); 
PROCEDURE PbText(cCount: TC; p: TP) 
PROCEDURE PbVRule(cLength: TC); 


KEK KKK KARA KR KK KKK KKK RK KK KK KR KK RRR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK KKK KKK KKK KEK 


x 


THAT'S ALL FOLKS ... 


* 


KEK KKK KKK KK RK R KKK KKK RK KK KK KKK KR KR KKK EK KR KK ARK RR KKK KK KKK RK KR KK KKK KR KR KKK KK KKK KKK 
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FILE: "LISA LIB 3 PRDLGMGR. TEXT" 

000001 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KK KKK RK KK KK KEK KK KK KEK KK KK EK KKKK 

000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRDLGMGR 

000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KEK KKK KK RK KKK KEK KK KK RK KK KKK KKK 

000006 

000007 USES {$U+} PRDLGMGR; 

000008 

000009 

000010 INTRINSIC; 

000011 {$SETC fBtnRead = FALSE} 

000012 

000013 INTERFACE 

000014 

000015 USES 

000016 {$U LibOS/SysCall } SysCall, 

000017 {$U Li bSM/ Unit Std } UnitStd, 

000018 {$U Li bSM/ Unit Hz } UnitHz, 

000019 {$U Li bHW HW nt } HWot, 

000020 {$U LibQD/QuickDraw } QuickDraw, 

000021 {$U Li bFM/ Font Mgr } Font Mgr, 

000022 {$U LibQD/ Storage } Storage, 

000023 {$U Li bWM/ Events } Events, 

000024 {$U Li bWM/ Folders } Folders, 

000025 {$U Li bSB/ Wml Std } Whl Std, 

000026 {$U Li bSB/ Wm Crs } Wm Crs, 

000027 {$U Li bPM/ PMDec! } PMDecl, 

000028 {$U libPr/PrStdinfo } PrStdinfo; 

000029 

000030 CONST 

000031 clnfinite = $7FFFFFFF; 

000032 cZero = 0; 

000033 cCursorDelay = 3500; 

000034 c Bt nMax = 31; 

000035 c MuMa x = 31: 

000036 i dMu Max = 15; 

000037 i Bt nNi | = 1; 

000038 i MuNi | =. 1: 

000039 i BtnStd = 2: 

000040 dhCkf mMarg = 6; 

000041 dvCkf mMarg = 4: 

000042 dhSpToCk = 4; 

000043 dhSpToR = 3; 

000044 dvSpToR =P Lt 

000045 cChNr Max = 4; 

000046 cChSpMax = 15; 

000047 dt DI gEnd = 25; 

000048 dt DI gMin = 25; 

000049 ckf mMax = 5: 

000050 

000051 TYPE 

000052 TDBox = RECORD 

000053 fKeyDlg: TF; 

000054 timeStrt: TL: 

000055 procEvent: TProc; 

000056 procidle: TProc; 

000057 procEnd: TProc; 

000058 END; 

000059 TEbtn = (ebtnSq, ebtnRR, ebtnOv); 

000060 TEqd = (eqdLl, eqdCl, eqdRI, eqdRO); 

000061 TEact = (eactin, eactCk, eactNr, eactSp, eactic); 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical 


Information 


TEni b 
TRgni b 
TLx 


TBtn 


TRgbtn 
Tl dMu 
TSet! dMu 
THmu 
TPmu 

TMu 


TRghmu 
THckf m 
TPckfm 
TCkf m 


TCkf mseg 


VAR 

dbox: 

setl dMuAl |: 
hspNi | 
finfoLx: 
rgnib: 
pPrRecUsr: 
hckf mPrCk: 
procCkCmd: 


(enibSm, enibLlg); 
ARRAY [TEnib] OF Point; 
PACKED RECORD 
fam 0..31; 
fB: TF: 
fl: TF: 
eact: TEact; 
eqd: TEqd; 
ebtn: TEbtn: 
enib: TEnib; 
fBtnVis: TF; 
mask: CHAR: 
smax: 0..255; 
END; 
RECORD 
r: Rect; 
Ix: TLx; 
hsp: THsp; 
END; 
ARRAY [0..cBtnMax] OF TBtn; 
0..idMuMax: 
SET OF TI dMu; 
“TPmu; 
AT Mu: 
RECORD 
rBB: Rect; 
idMu: Tl dMu; 
iBtnOn: TB; 
iBtnUsr: TB: 
cBtn: TB; 
fMuVis: TF; 
fMUActv: TF; 
rgbtn: TRgbtn; 
END; 
ARRAY [0..cMuMax] OF THmu; 
ATPckf m 
ATCkf m 
RECORD 
rBB: Rect; 
iMuKey: TB; 
iBtnKey: TB; 
cMu: TB; 
rghmu: TRghmu; 
END; 
RECORD 
ckfm ARRAY [0..ckfmMax] OF 
END; 


TDBox; 
TSetil dMu; 
THsp; 
FontI nfo; 
TRgni b; 
TPpr Rec; 
THckf m; 
TProc; 


PROCEDURE DI gMgrl nit; 


PROCEDURE PauseEvt(dt: 


FUNCTION FMselnFldr(pwnd: WindowPtr; VAR pt: 


TC); 


PROCEDURE PrStrToNum(spNum: TSp; VAR c: TC); 
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000128 PROCEDURE PrNumToStr(c: TC; VAR spNum TSp) 

000129 

000130 PROCEDURE PrCkEvent(event: EventRecord); 

000131 

000132 PROCEDURE PrCkTrkMse 

000133 

000134 PROCEDURE CaretMove( pwnd: WindowPtr; h, v: TC); 
000135 

000136 PROCEDURE Caret Synch; 

000137 

000138 PROCEDURE Caret Kill 

000139 

000140 PROCEDURE CaretFli p; 

000141 

000142 PROCEDURE Caret Blink 

000143 

000144 PROCEDURE Digi nstall(fKey: TF; pEvent, pldle, pEnd: TProc) 
000145 

000146 PROCEDURE Di gEvent(event: EventRecord); 

000147 

000148 PROCEDURE Dl gl dle; 

000149 

000150 PROCEDURE DI gEnd(f Dismiss: TF); 

000151 

000152 PROCEDURE Di gOpen(dv: TC); 

000153 

000154 FUNCTION FDI gEvent(VAR event: EventRecord): TF; 
000155 

000156 PROCEDURE DI gMain; 

000157 

000158 FUNCTION FDI gDone: TF; 

000159 

000160 FUNCTION FCkfmSelect(hckfm: THckfm ptMse: Point; VAR iMu, iBtn: TB): TF; 
000161 

000162 PROCEDURE CkFmSet Up(hckfm: THckfm; filmit: TF; setldMuActv: TSet! dMu) 
000163 

000164 PROCEDURE Ckf mShow( hckfm: THckfm flnit: TF); 

000165 

000166 PROCEDURE CkfmtrkMse(hckfm: THckfm, pWnd: WindowPtr) 
000167 

000168 PROCEDURE Ckf mKeys(hckfm: THckfm; i Mu, iBtn: TB); 
000169 

000170 PROCEDURE Ckf mAddCh( hckfm: THckfm ch: CHAR); 

000171 

000172 FUNCTION FCkf mNxtKey(hckfm: THckfm VAR iMuNxt, iBtnNxt: TB): TF; 
000173 

000174 PROCEDURE CkfmSp(hckfm THckfm; i Mu, iBtn: TB; VAR sp: TSp; fNew: TF); 
000175 

000176 FUNCTION FCkf mHit( hckfm: THckfm iMu, i Btn: TB): TF: 
000177 {$1 FC fBtnRead} 

000178 

000179 FUNCTION HspAlloc(sp: TSp; cChMax: TC): THsp; 

000180 

000181 PROCEDURE HspFree(VAR hsp: THsp); 

000182 

000183 FUNCTION HCkf mRead( VAR ckFile: Text): THckfm 

000184 {$ENDC} 

000185 

000186 PROCEDURE MuShow( hmu: THmu); 

000187 

000188 PROCEDURE MuErase(hmu: THmu); 

000189 

000190 PROCEDURE MuPush(hmu: THmu; iBtn: TB) 

000191 

000192 FUNCTION FMuHit(hmu: THmu; ptMse: Point; VAR iBtn: TB): TF; 
000193 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 


End of 


Apple Lisa Computer Technical Information 


PROCEDURE BtnDraw( btn: TBtn); 
PROCEDURE BtnErase(btn: TBtn); 


PROCEDURE BtnFill(btn: TBtn; fFlip: TF); 


PROCEDURE BtnPtSp(btn: TBtn; VAR ptSp: Point; VAR dhSp: TC); 


PROCEDURE BtnWrite(btn: TBtn; sp: TSp) 
PROCEDURE BtnAddCh( btn: TBtn; ch: CHAR); 
PROCEDURE BtnBkSp( btn: TBtn); 

PROCEDURE BtnBind( VAR Ix: TLx); 


PROCEDURE BtnSetSp(btn: TBtn; sp: TSp; showlt: TF); 


PROCEDURE BtnReappear(hmu: THmu; iBtn: TB); 


PROCEDURE BtnVanish(hmu: THmu; i Btn: TB); 


KEK KKK KKK KKK R KKK KKK RK KK KK ERK KR KK KKK ERK RK KARA KR KKK KKK KER KKK KK KKK KKK KKK KKK KKK KEK 


x 


‘ THAT'S ALL FOLKS ... 


x 


KEK KKK KKK KK RK KKK KKK KR KKK KKK RK KAKA KKK EK KR KK ARK KR KKK KK KKK RK KR KK KKK KKK KKK KKK KKK KKK 
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FILE: "LISA LIB 3 PREVENTS. TEXT" 


000001 KEK KKK KARA KR KR KKK KR KR KK RRR ERK KAKA KKK EK KR KK ARK ERK KK KKK KER KAKA KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PREVENTS 

000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KEK KK KKK KKK KKK KEK KK KKK KKK KK EK KKK 
000006 

000007 USES {$U+} PREVENTS; 
000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U Li bSM/ UnitStd 
000016 {$U LI bOS/ SysCal 
000017 {$U Li bPM/ PMDecI PMDecl 
000018 Li bSM/ Uni t Hz Uni t Hz 


} UnitStd, 

} 
000019 Li bQD/ Storage } Storage 

} 

} 

} 

} 

} 


SysCall, 


{$U 

{$U 

000020 {$U Li bQD/ QuickDraw Qui ckDraw 
000021 {$U Li bQD/ Graf Util Graf Util 
000022 {$U Li bFM/ Font Mgr Font Mgr 
000023 {$U LibPr/ PrStdl nfo 
000024 {$U LibPr/ PrStdProcs 
000025 

000026 CONST 

000027 ECNameSi ze 
000028 maxstuff 
000029 

000030 TYPE 

000031 PrMessages = (ENull, EWake, EDone, EPrintRequest, EPrintDialog 

000032 ESettingsDialog, EPrListDialog, EMonitorDialog 

000033 ESendData, ETalkToMe, EMetrics, EJ obCount, 

000034 EPrintTerminate, EReply, EAbort, EStuffed, EConfigure) 
000035 PrEventBl k = RECORD 

000036 event header: t_eheader 

000037 CASE INTEGER OF 

000038 0: 

000039 (event_text: t_event text); 

000040 1: 

000041 (eventBytes: ARRAY [0..39] OF - 128..127); 

000042 2: 

000043 (eventints: ARRAY [0..19] OF I NTEGER) 

000044 3: 

000045 (eventLongs: ARRAY [0..9] OF LONGI NT) 

000046 END; 

000047 Channel = RECORD 

000048 ChName: Pathname 

000049 Ref Num INTEGER 

000050 Exname: t_ex_name 

000051 EvBlock: PrEvent Blk 

000052 Interval: timest mp interval 

000053 Cl kTime: time_rec; 

000054 Waits: t_waitlist; 

000055 END; 

000056 

000057 FUNCTION PrAccept(VAR Chan: Channel): PrMessage 

000058 

000059 PROCEDURE PrCall(VAR cError: TC; PriD: TL; Message: PrMessages; messi, mess2, 
000060 mess3, mess4: TL); 

000061 


PrStdli nfo, 
PrStdProcs; 


8 
38; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 


End of 
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PROCEDURE PrCloseChan(VAR Chan: Channel); 


PROCEDURE PrDeferToBgd(PriD: TL; Message: PrMessages; messi, mess2, 


mess4: TL); 
PROCEDURE Pri DtoPath(PriD: TL; VAR path: PathName); 
PROCEDURE PrOffer(VAR Chan: Channel; Message: PrMessages); 
PROCEDURE PrOpenChan(VAR Chan: Channel; Rx: TF) 
PROCEDURE PrOpenCall (VAR Chan: Channel; ExProc: LongAdr) 
PROCEDURE PrJj obCount(PriD: TL; VAR cjob: INTEGER) 


PROCEDURE PrNotify(PriD: TL; Message: PrMessages; messi, mess2, 


mess4: TL); 


PROCEDURE PrPrintRequest(PriD: TL; I FileName, ncopies, PrntrlD, 


mess3, 


mess 3, 


PortID: TL); 


PROCEDURE PrPrintStop(PriD: TL; | FileName, ncopies, PrntriD, PortID: TL); 


PROCEDURE PrSendMessage( VAR cError: INTEGER; VAR Chan: Channel 


Message: PrMessages); 
FUNCTION PrWaitMessage(VAR Chan: Channel): PrMessage 
PROCEDURE PrStuffData(PriD: TL; dataPtr: TP; nbytes: TC); 


PROCEDURE PrUpdate; 


KEK KKK KAKA KR KK KKK KKK RK KR KK ERK KAKA KKK EK KR KK RRA KR KKK KK KKK RAK KK KKK KR KR KKK KKK KKK EK 


x 


: THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KK RRR KKK KKK RK KR KK ERK KR KR KKK RK KR KK ARK KR KKK KKK KER KK RRR KKK KR KKK KAKA KKK KEK 


File -- Lines: 98 Characters: 3195 
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FILE: "LISA LIB 3 PRFILEPR. TEXT" 


000001 KEK KKK KAR KK RK K KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK KR KKK KKK KKK KKK KK KKK KKK KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRFILEPR 

000004 * 

000005 RR GGG GIG IGG IGG GGG GGG GGG IGG IGG GGG REE RAKES 
000006 

000007 USES {$U+} PRFILEPR; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U LibOS/SysCall } SysCall 

000016 {$U Li bPM/ PMDecI } PMDecl 

000017 {$U Li bSM/ Unit Std } UnitStd 

000018 {$U Li bSM/ UnitHz } UnitHz 

000019 {$U LibQD/Storage } Storage 

000020 {$U Li bQD/ QuickDraw } QuickDraw 

000021 {$U Li bFM/ Font Mgr } Font Mgr 

000022 {$U LibPr/PrStdinfo } PrStdinfo 

000023 {$U LibPr/PrStdProcs} PrStdProcs 

000024 

000025 CONST 

000026 pf Password = + 13264 

000027 pf Pi cHRule = 20; 

000028 pfPicVRule = 21; 

000029 pf PicTab = 22: 

000030 HeapSize = 12000 

000031 

000032 TYPE 

000033 TStr80 = String[80] 

000034 

000035 PROCEDURE OpenBlock(VAR error: Integer; VAR FileRec: TPrFil eRec; 

000036 access: MSet); 

000037 

000038 PROCEDURE WriteBlock(VAR error: Integer; p: TP; | Count: Longlnt 

000039 Ref Num: Integer) 

000040 

000041 PROCEDURE ReadBlock(VAR error: Integer; p: TP; | Count: Longl nt; 

000042 Ref Num: Integer) 

000043 

000044 PROCEDURE PfSetPos(VAR error: Integer; | Pos: TL; RefNum: Integer) 

000045 

000046 PROCEDURE PfSavePos(VAR error: Integer; VAR | Pos: TL; RefNum Integer) 
47 

nehels KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KEK KK KK RK KK KK EKA KKK 

000049 * 

000050 * THAT'S ALL FOLKS ... 

000051 * 


000052 KEK KKK KAR KK RRR KKK KKK RK KK KK KKK KR KR KKK EK KR KK ARK KR KKK KK KKK RK KR KK KKK KARR KKK KK KKK KEK 


000053 


End of File -- Lines: 53 Characters: 1424 
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FILE: "LISA LIB 3 PROGCOMM. TEXT" 


000001 KEK KKK KAR KK RRR KKK KKK RK KK KK KKK KR KR KKK RK KR KK ARK ERK KKK KKK ERK KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PROGCOMM 

000004 * 

000005 kG GGG IGG IGG IGG IGG GGG GGG IGG IGG GR RRR RAKES 
000006 

000007 USES {$U+} PROGCOMM; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U StdUnit } StdUnit, 

000016 {$U Shell Comm } Shel! Comm; 

000017 

000018 CONST 

000019 PCNone = a 

000020 PCAny = 0; 

000021 PCText = 1; 

000022 PCBuf r Max = 1023 

000023 PC_SetReallyStop = 1; 

000024 PC GetReallyStop = 2; 

000025 PC SetUnSavedEdits = 6960 

000026 PC_GetUnSavedEdits = 8751; 

000027 

000028 TYPE 

000029 PCBufrP = “PCBufr 

000030 PCBufr = PACKED ARRAY [0..PCBufrMax] OF CHAR 
000031 

000032 VAR 

000033 PCBufrPtr: PCBufrP; 

000034 

000035 PROCEDURE PCI nit; 

000036 

000037 PROCEDURE PCSet RunCmd(RC: SUStr); 

000038 

000039 PROCEDURE PCSetRetStr(RS: SUStr); 

000040 

000041 PROCEDURE PCReWrite(WriteType: INTEGER; Key: SUStr); 
000042 

000043 FUNCTION PCReset(ReadType: INTEGER; Key: SUStr): BOOLEAN 
000044 

000045 FUNCTION PCClose(KillBufr: BOOLEAN; Key: SUStr): BOOLEAN 
000046 

000047 FUNCTION PCPutCh(Ch: CHAR): BOOLEAN 

000048 

000049 FUNCTION PCGetCh(VAR Ch: CHAR): BOOLEAN 

000050 

000051 FUNCTION PCPutLine(L: SUStr): BOOLEAN 

000052 

000053 FUNCTION PCGetLine(VAR L: SUStr): BOOLEAN 

000054 

000055 FUNCTION PCShel | Cmd(Cmd: INTEGER; P: SUStrP): BOOLEAN 
0 

conges KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK RK KK KK RK KK KK EKA KKK 
000058 * 

000059 * THAT'S ALL FOLKS ... 
000060 * 


000061 KEK KKK KAR KKK KK KKK KKK RK KR RK ERK KARR KKK KK KR KK ARK RR KKK KK KKK RK KR KK KKK KR KKK KAKA KKK KEK 
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000062 


End of File -- Lines: 62 Characters: 1355 
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FILE: "LISA LIB 3 PRPUBLIC. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KR KKK RK KR KK ARK KR KKK KKK KKK K KR KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRPUBLIC 

000004 * 

000005 RR GGG IGG IGG IGG IGG IGG IGG GGG IGG IGG GGG RRR RAKES 
000006 

000007 USES {$U+} PRPUBLI C; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U Lib0OS/SysCall } SysCall 

000016 {$U Li bPM/ PMDecI } PMDecl 

000017 {$U LibSM/UnitStd } UnitStd 

000018 {$U Li bSM/ UnitHz } Unit Hz 

000019 {$U LibQD/Storage } Storage 

000020 {$U Li bQD/ QuickDraw } QuickDraw 

000021 {$U Li bFM/ Font Mgr } Font Mgr 

000022 {$U LibPr/PrStdinfo } PrStdinfo 

000023 

000024 PROCEDURE PsYieldCpu; 

000025 

000026 PROCEDURE PrGloball nit; 

000027 

000028 FUNCTION FPrPrfValid(VAR prprf: TPrRec): TF; 

000029 

000030 PROCEDURE PrPrfDefault(VAR prprf: TPrRec); 

000031 

000032 FUNCTION fPrPrfEq(VAR prprfi, prprf2: TPrRec): TF; 

000033 

000034 FUNCTION PrDocStart(VAR PrRec: TPrRec; VAR PrPort: TPrPort; LDSN: INTEGER 
000035 DoSpool Alert: Boolean): Bool ean; 

000036 

000037 FUNCTION PrPageStart(VAR prinsIn: TPrRec; VAR PrPort: TPrPort): TF; 
000038 

000039 FUNCTION PrPageEnd(VAR prinsIn: TPrRec; VAR PrPort: TPrPort): TF; 
000040 

000041 PROCEDURE PrDocEnd(VAR prinsIn: TPrRec; VAR PrPort: TPrPort); 
000042 

000043 PROCEDURE PrMgrInit; 

000044 

000045 PROCEDURE PrPrf DI g(VAR prprf: TPrRec; VAR fNewStl: TF; fPgSzSuppress: TF) 
000046 

000047 FUNCTION FPrinsDI g(VAR prprf: TPrRec; VAR fNewStl: TF; 

000048 prmode: PrMenuSuppress): TF; 

000049 

000050 PROCEDURE PrSpool Abort 

000051 

000052 PROCEDURE Pr BgdDIl g; 

000053 

000054 PROCEDURE PrDI gDefault(fPgSzSuppress: TF; Prmode: PrMenuSuppress; MaxHei ght 
000055 MaxWidth, MinHeight, MinWdth: TC); 
000056 

000057 PROCEDURE PrLFntID(VAR prprf: TPrRec; famln: TC; setin: Style; 
000058 VAR | Fntid: TLFntID); 

000059 


000060 KEK KKK KARA KR KK KKK KKK RK KK KK ERK KR KR KKK KK KR KK ARK ERK KK KKK KER KKK KKK RK KR KKK KARR KKK KEK 


000061 * 
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000062 * THAT'S ALL FOLKS ... 


000063 * 


000065 


End of File -- Lines: 65 Characters: 1780 
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FILE: "LISA LIB 3 PRSTDINF. TEXT" 


000001 KEK KKK KAR KKK KK KKK KKK RK KR KK ERK KR KR KKK KK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK KKK KKK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRSTDI NF 

000004 * 

000005 REGGIO IGG IGG GRRE RARE 
000006 

000007 USES {$U+} PRSTDI NF; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U LibOS/SysCall } SysCall, 
000016 {$U Li bPM/ PMDecI } PMDecl, 
000017 {$U Li bSM/ Unit Std } UnitStd, 
000018 {$U Li bSM/ UnitHz } UnitHz, 
000019 {$U LibQD/Storage } Storage, 
000020 {$U Li bQD/ QuickDraw } QuickDraw, 
000021 {$U Li bFM/ Font Mgr } Font Mgr; 
000022 

000023 {$setc doTracePR := TRUE} 
000024 {$setc fTracePR = doTracePR and f Trace} 
000025 

000026 {$SETC PrDebug = fdbgok} 
000027 {$SETC PrSymbols = fsymok} 
000028 

000029 CONST 

000030 cPrPrfVersion = 11; 

000031 prdVersion = 1; 

000032 cbPrPrf Max = 64; 

000033 Pr PageMax = $O7FFF; 

000034 Last Bl ock = 9999: 

000035 i PgOt her = 0; 

000036 i Pg8x11 = 1; 

000037 i Pg8x14 = 2: 

000038 i Pgl4x11 = 3; 

000039 i PgA4 = 4: 

000040 i Pg210x12 = 5; 

000041 i Pg310x8 = 6; 

000042 i PgSpec = 7; 

000043 i PgFst = 0; 

000044 i Pg Max = 15; 

000045 prPgFract = 120; 

000046 prNiLProcess =- 1; 

000047 prNilRefNum = = 1; 

000048 prNilPrinter = 1; 

000049 prNil Port = 1; 

000050 prErrAbort = 3050; 

000051 prErrPrShop = 3068; 

000052 NoPRD = 3055: 

000053 NoPMDrivers = 3056: 

000054 PMbut NoPRD = 3057; 

000055 NoPrProcess = 3058; 

000056 NoBtnFile = 3059: 

000057 PrParentProcess = ‘System Print’; 
000058 spPrAlrt = 'System. Pr.'; 
000059 sParentSeg = ‘System PrData'; 
000060 | dsnshared = 12; 

000061 I dsndialog = 9; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical 


Information 


TYPE 
Tl 
T4 
T8 
T16 


T32 


TDi rection 
TPgSize 


TDI gPgSz 


TPrj obi nfo 


TPrinfo 


Apple Lisa Desktop Library 3.0 Pascal 


0..1; 
0..15; 
- 128..127; 
PACKED RECORD 

CASE INTEGER OF 

0 
(byl, byO: + 128,.127); 

1: 

(cl, cO: CHAR); 
2: 
ush0: 


(usbl, 0..255); 


(sb1, sb0: - 128,.127); 


(n3, n2, nl, nQ: T4); 


(f 15, 
f5, 


f14, f13, 
f4, f3, f2, 


f12, f11, 
fl, f0: 


f10, 9, 
BOOLEAN) ; 


f8, 


(b15, 
b5, 


bl4, b13, 
b4, b3, b2, 


b12, 
bl, 


b11, 
b0: 


b10, 
T1); 


b9, b8, 


(i: INTEGER); 

END; 

PACKED RECORD 
CASE INTEGER OF 

0 
(i1, i0: 116); 

1: 

(1: LONGI NT); 
2 

(p: TP); 

3: 

(h: TH); 

6: 

(aby: PACKED ARRAY [0..3] OF - 128..127); 
END; 
(Portrait, 
RECORD 

PaperDirect: TDirection; 

PrintDirect: TDirection; 

Width: INTEGER; 

Height: INTEGER 

Extend: Longl nt; 

END; 

RECORD 
pgSzBtn: 
wi di nch: 
ht nch: 
wi d16th: 
ht 16th: 
wi d MM: 
ht MM: 

END; 

RECORD 
DocPgFst: Integer; 
DocPgLst: Integer; 
SpooledPages: Integer 
Copies: Integer; 
Immediate: Boolean; 
Extend: Longl nt; 

END; 

RECORD 
ADev: 


LandScape); 


| NTEGER; 
| NTEGER; 
| NTEGER; 
INTEGER; 
| NTEGER; 
INTEGER; 

INTEGER; 


TADev; 
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TPrDevinfo 
TPrPort 


TpPr Rec 
ThPrRec 
TPrRec 


TPf Page = 


TPf Pages 

TPPf Pages 
THPf Pages 
TPrFileld 


TPrFil eRec = 
TPrDSRec = 
PrMenuSuppress 
Di gOption 


TPrntriD = 
TPrExt Word = 


DriverChoice = 
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Printer! D: Integer; 
NumColor: Integer; 
HRes, VRes: Integer 
rPaper: Rect; 
rPrintable: Rect; 
PgSize: TPgSize 
Port: Integer; 
DI gPgSz: TDI gPgSz; 
Extend: Longl nt; 
END; 
ARRAY [1..128] OF - 
RECORD 
gport: 
gProcs: 
Extend: 
END; 
“TPrRec; 
“TPPrRec: 
RECORD 
PrVersion: Integer; 
PrLDSN: Integer 
Prjoblnfo: TPrj oblnfo 
Prinfo: TPrinfo; 
PrDevinfo: TPrDevinfo 
Extend: Longl nt; 
END; 
RECORD 
Start: 
Length: 
END; 
ARRAY [1..999] OF TPfPage 
ATPf Pages; 
“TPPf Pages; 
RECORD 
sFileName: Str255: 
CASE Boolean OF 
True: 
(Longld: 
False: 
(Id, 


128,.127; 
Graf Port; 

QDProcs; 

Longl nt; 


Longl nt; 
Longl nt; 


Longl nt); 
BlockNum: Integer); 
END; 
RECORD 
FileName: PathName; 
RefNum Integer; 
END; 
RECORD 
SegName: PathName 
InitSize: Longl nt; 
Ref Num Integer; 
LDSN: Integer 
BegAddr: Longl nt; 
END; 
= (ePrNormal, ePgRangeSuppress, ePrDialogSuppress); 
(eDI gOK, eDl gCancel, eDIl gAnother); 
0..16383; 
PACKED RECORD 
CASE INTEGER OF 


0 
(printer flag: TF; 
default flag: TF; 
PrDevicelD: TPrntriD) 
1: 
(Ext Word: INTEGER); 
END; 
RECORD 


Connector: TypeConnect; 
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cd_Driver: e name; 
END; 
DN Info = RECORD 
printer_id: Longl nt; 
numDrivers: Integer 
END; 
prdHeader = RECORD 
version: Integer 
prdcount: Integer 
END; 
prdEntry = RECORD 
entryLen: Integer 
drvr_name: e name; 
info: dn_info; 
END; 
PRD_I nfo = RECORD 
descr: prdHeader 
info: ARRAY [0..0] OF prdEntry; 
END; 
VAR 
cPrError: Integer; 
fBackGround: TF; 
flnitialized: TF; 
| Parentl D: TL; 
PrAlertUP: Bool ean; 
prsslot, prsconnector, prsdevice, prsAserial, prsBserial, prsparallel 
prsnone: TSp; 
PrExtras: ARRAY [0..10] OF LONGI NT; 
PrDebug: Bool ean; 
PrBugpName: Pat hName 
PrBugFile: Text; 
FUNCTION PrRec68K: TpPrRec 
KAA KKKKKKK KK KKK KKK KKK KKK KKK KKK KK ARK KKK KKK KKK KK ARK KA KKK KKK KKK KKK KARR KAR KKKKKKKKKKKE 
x 
* THAT'S ALL FOLKS .. 
x 
KKK KKKKKKK KKK KKK RK RRR KK KKK KKK RK ARK KKK KKK KKK KK ARK KA KKK KKK KKK KKK KAR KAR KK KKKKKKKKE 
File -- Lines: 234 Characters: 7814 
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FILE: "LISA LIB 3 PRSTDPRO. TEXT" 


000001 KEK KKK KKK KK RRR KKK KKK RK KK KK ERK KR KR KKK ERK RK KARA KR KKK KK KKK RK KR KK KKK KR KKK KAKA KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : PRSTDPRO 

000004 * 

000005 RAG IGG IGG IGG IGG GGG GGG IGG IGG IGG GRRE RAKE 
000006 

000007 USES {$U+} PRSTDPRO 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U Li bOS/SysCall } SysCall 

000016 {$U Li bPM/ PMDecI } PMDecl 

000017 {$U Li bHW HWi nt } HWint, 

000018 {$U Li bSM/ Unit Std } UnitStd 

000019 {$U Li bSM/ Unit Hz } Unit Hz 

000020 {$U Li bQD/ Storage } Storage 

000021 {$U Li bQD/ QuickDraw } QuickDraw 

000022 {$U Li bFM/ Font Mgr } Font Mgr 

000023 {$U LibPr/PrStdinfo } PrStdinfo 

000024 

000025 CONST 

000026 PortA = $0A10 

000027 PortB = $0A20 

000028 

000029 TYPE 

000030 Str 80 = String[80] 

000031 

000032 PROCEDURE PsCopy(Src, Dst: TL; len: TC); 

000033 

000034 PROCEDURE PsOpenPort(VAR Error: Integer; Port: Integer) 
000035 

000036 PROCEDURE PsClosePort(VAR Error: Integer; Port: Integer); 
000037 

000038 PROCEDURE PsInPort(VAR Error: Integer; p: TP; c: TC); 
000039 

000040 PROCEDURE PsOutPort(VAR Error: Integer; p: TP; c: TC) 
000041 

000042 PROCEDURE PsPortName( Port: Integer; shandle: THsp) 
000043 

000044 PROCEDURE PsPortToDevName( Port: Integer; VAR DevName: e name) 
000045 

000046 PROCEDURE PsPreempti ve 

000047 

000048 PROCEDURE PsNonPreempti ve 

000049 

000050 PROCEDURE PsNumToStr(c, w: TC; pstr: TpSp; z: CHAR); 
000051 

000052 PROCEDURE PsYieldCpu; 

000053 

000054 FUNCTION fCl rBitmap( VAR bits: Bitmap; rCheck: Rect): TF; 
000055 

000056 PROCEDURE I nitDeBug 

000057 

000058 FUNCTION PrAnd(cl, c2: TC): TC 

000059 

000060 PROCEDURE CilrBitmap( pBitmap: TP); 

000061 
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FUNCTION fCl rBits(VAR bits: Bitmap; rCheck: Rect): TF; 


FUNCTION fEQBIk(a, b: TP; I: TL): TE; 
PROCEDURE MoveBlk(a, b: TP; I: TL); 
FUNCTION PrShRight(cl, n2: TC): TC 
FUNCTION PrShLeft(cl, n2: TC): TC 


PROCEDURE Get FileName(VAR PrFileld: TPrFileld); 


KEK KKK KAR KKK KKK KKK KR KKK KK ERK K RK KKK KEK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KKK KAKA KKK KEK 


x 


- THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KKK RK KR KKK KAKA KKK KEK 
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000001 KEK KKK KARA KR KK KKK KKK RK KK KK ERK KAKA KKK RK KR KK ARK ERK KK KKK KER KKK KKK KKK RK KKK KKK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : QUEUES 

000004 * 

000005 RGGI IGG IGG IGG GGG GGG GGG IGG IGG IGG GRRE RAKE 
000006 

000007 USES {$U+} QUEUES 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U LibSM/UnitStd } UnitStd 

000016 {$U Li bSM/ UnitHz } Uni tHz 

000017 

000018 TYPE 

000019 pQueue = “Queue 

000020 hQueue = “pQueue 

000021 Queue = RECORD 

000022 Head: hQueue; 

000023 Tail: hQueue; 

000024 END; 

000025 

000026 PROCEDURE QueueFree( Queue: hQueue); 

000027 

000028 PROCEDURE Queuelnit( Queue: hQueue); 

000029 

000030 PROCEDURE Queuel nUse( Queue: hQueue) 

000031 

000032 PROCEDURE Enqueue(Queue, Item: hQueue); 
000033 

000034 FUNCTION Dequeue( Queue: hQueue): hQueue 
000035 

000036 FUNCTION InsertBefore(Queue, Successor, Item: hQueue): TF; 
000037 

000038 FUNCTION InsertAfter(Queue, Predecessor, Item: hQueue): TF; 
000039 

000040 FUNCTION Unqueue( Queue, Item hQueue): TF; 
000041 

000042 FUNCTION QueueLength( Queue: hQueue): TC 
000043 

000044 FUNCTION QueuePeek( Queue: hQueue): hQueue 
000045 

000046 FUNCTION EnumerateQueue( Queue: hQueue; FUNCTION 
000047 FuncHandle( Queue: hQueue; arg: hQueue): BOOLEAN 
000048 arg: hQueue): hQueue 
000049 


000050 RGGI IGG IGG IGG IGG IGG IGG IGG IGG GRRE RAKES 
000051 * 

000052 * THAT'S ALL FOLKS ... 

000053 * 

000054 REGGIE RRR RAKES 


000055 


End of File -- Lines: 55 Characters: 1339 
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000001 KEK KKK KKK KK RK KKK KKK KR KKK KK ERK KAKA KKK KK KR KK KKK KR KKK KKK KKK K KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : QUICKDRAW 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG IGG IGG IGG GRR RRR RAKES 
000006 

000007 USES {$U+} QUI CKDRAW, 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 CONST 

000015 srcCopy = 0; 

000016 srcOr = 1: 

000017 srcXor = 2; 

000018 srcBic = 3; 

000019 notSrcCopy = 4; 

000020 not SrcOr = 5; 

000021 not SrcXor = 6; 

000022 not SrcBic S13 

000023 pat Copy = 8; 

000024 pat Or = 9; 

000025 pat Xor = 10; 

000026 pat Bic = 11; 

000027 not Pat Copy = 12; 

000028 not Pat Or = 13; 

000029 not Pat Xor = 14; 

000030 not Pat Bic = 15; 

000031 normal Bit = 0; 

000032 inverseBit = 1; 

000033 redBit = 4; 

000034 greenBit = 3; 

000035 bl ueBit = 2: 

000036 cyanBit = 8; 

000037 magent aBi t = 7; 

000038 yel | owBi t = 6; 

000039 bl ackBit = 5 

000040 bl ackCol or = 33; 

000041 whi teCol or = 30; 

000042 redColor = 205: 

000043 greenCol or = 341; 

000044 bl ueCol or = 409: 

000045 cyanColor = 273; 

000046 magentaColor = 137; 

000047 yellowColor = 69; 

000048 picLParen = 0; 

000049 picRParen = 1; 

000050 

000051 TYPE 

000052 QDByte = + 128,.127; 
000053 QDPtr = “QDByte; 
000054 QDHandle = “*QDPtr; 
000055 $tr255 = String[255]; 
000056 Pattern = PACKED ARRAY [0..7] OF 0..255 
000057 Bits16 = ARRAY [0..15] OF INTEGER 
000058 VHSel ect =(v, h); 
000059 Graf Verb = (frame, paint, erase, invert, fill); 
000060 Styleltem = (bold, italic, underline, outline, shadow, condense, 
000061 extend, onlymetricswidths); 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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Style 
FontI nfo 


Point 


Rect 


Bit Map 


Cursor 


PenState 


Pol yHandl e 
Pol yPtr 
Polygon 


RgnHandle 
RgnPtr 
Regi on 


Pi cHandle 
PicPtr 
Picture 


QDProcsPtr 
QDProcs 


SET OF Styleltem 
RECORD 
ascent: INTEGER 
descent: INTEGER; 
wi dMax: INTEGER; 
leading: INTEGER 
END; 
RECORD 
CASE INTEGER OF 
0 


(vi INTEGER; 
h: INTEGER); 


(vh: ARRAY [VHSelect] OF I NTEGER) 
END; 
RECORD 
CASE INTEGER OF 
0 
(top: INTEGER; 
left: INTEGER; 
bottom: INTEGER: 
right: INTEGER); 


(topLeft: Point; 
botRight: Point); 
END; 
RECORD 
baseAddr: QDPtr: 
rowBytes: INTEGER 
bounds: Rect; 


END; 

RECORD 
data: Bits16; 
mask: Bitsl16; 
hotSpot: Point; 

END; 

RECORD 
pnLoc: Point; 
pnSize: Point; 


pnMode: INTEGER 
pnPat: Pattern; 


polySize: INTEGER 

pol yBBox: Rect; 

polyPoints: ARRAY [0..0] OF Point; 
END; 


rgnSize: INTEGER; 
rgnBBox: Rect; 
END; 
“PicPtr; 
“Picture: 
RECORD 
picSize: INTEGER 
picFrame: Rect; 
END; 
“QDProcs; 
RECORD 
textProc: QDPtr; 
lineProc: QDPtr; 
rectProc: QDPtr; 
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000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 


Apple Lisa Computer Technical Information 


rRectProc: QDPtr; 
oval Proc: QDPtr; 
arcProc: QDPtr; 
polyProc: QDPtr; 
rgnProc: QDPtr; 
bitsProc: QDPtr 
commentProc: QDPtr; 
txMeasProc: QDPtr 
getPicProc: QDPtr 
put PicProc: QDPtr 


END; 
Graf Ptr = “Graf Port 
Graf Port = RECORD 
device: INTEGER 
portBits: BitMap; 
portRect: Rect; 
visRgn: RgnHandl e; 
clipRgn: RgnHandl e; 
bkPat: Pattern; 
fill Pat: Pattern; 
pnLoc: Point; 
pnSize: Point; 
pnMode: INTEGER 
pnPat: Pattern; 
pnVis: INTEGER 
txFont: INTEGER; 
txFace: Style; 
txMode: INTEGER 
txSize: INTEGER; 
spExtra: Longl nt; 
fgColor: Longl nt; 
bkColor: Longl nt; 
colrBit: INTEGER 
patStretch: INTEGER 
picSave: QDHandle; 
rgnSave: QDHandle; 
polySave: QDHandl e; 
grafProcs: QDProcsPtr 
END; 
VAR 
thePort: Graf Ptr; 
white: Pattern; 
black: Pattern; 
gray: Pattern; 
ItGray: Pattern; 
dkGray: Pattern; 
arrow: Cursor; 
screenBits: Bi t Map; 
randSeed: Longl nt; 
PROCEDURE InitGraf(global Ptr: QDPtr); 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


Apple Lisa 


OpenPort(port: GrafPtr); 
InitPort( port: GrafPtr); 
ClosePort(port: Graf Ptr); 
SetPort(port: GrafPtr); 

Get Port(VAR port: GrafPtr); 
Graf Device(device: INTEGER); 


SetPortBits(bm: BitMap); 
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000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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PortSize(width, height: I NTEGER) 
MovePortTo(leftGlobal, topGlobal: INTEGER); 
Set Origin(h, v: INTEGER); 
SetClip(rgn: RgnHandle); 
GetClip(rgn: RgnHandl e); 
ClipRect(r: Rect); 

BackPat(pat: Pattern); 
InitCursor; 

SetCursor(crsr: Cursor); 

Hi deCursor; 

ShowCursor; 

ObscureCursor; 

Hi dePen; 

ShowPen; 

Get Pen( VAR pt: Point); 

Get PenState(VAR pnState: PenState); 
SetPenState(pnState: PenState); 
PenSize(width, height: INTEGER); 
PenMode( mode: INTEGER); 
PenPat(pat: Pattern); 

PenNor mal ; 

MoveTo(h, v: INTEGER); 

Move(dh, dv: INTEGER); 

LineTo(h, v: INTEGER) 

Line(dh, dv: INTEGER) 
TextFont(font: INTEGER); 
TextFace(face: Style); 

Text Mode( mode: INTEGER); 
TextSize(size: INTEGER); 
SpaceExtra(extra: Longl nt); 
DrawChar(ch: char); 
DrawString(s: Str255); 


DrawText(textBuf: QDPtr; firstByte, byteCount: INTEGER); 
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000260 

000261 FUNCTION CharWi dth(ch: CHAR): INTEGER 

000262 

000263 FUNCTION StringWdth(s: Str255): INTEGER; 

000264 

000265 FUNCTION Text Width(textBuf: QDPtr; firstByte, byteCount: INTEGER): INTEGER 
000266 

000267 PROCEDURE GetFontIi nfo(VAR info: FontI nfo); 

000268 

000269 PROCEDURE AddPt(src: Point; VAR dst: Point); 

000270 

000271 PROCEDURE SubPt(src: Point; VAR dst: Point); 

000272 

000273 PROCEDURE Set Pt(VAR pt: Point; h, v: INTEGER) 

000274 

000275 FUNCTION Equal Pt(pt1, pt2: Point): BOOLEAN 

000276 

000277 PROCEDURE ScalePt(VAR pt: Point; fromRect, toRect: Rect) 
000278 

000279 PROCEDURE MapPt(VAR pt: Point; fromRect, toRect: Rect); 
000280 

000281 PROCEDURE Local ToGl obal (VAR pt: Point); 

000282 

000283 PROCEDURE Global ToLocal(VAR pt: Point); 

000284 

000285 PROCEDURE SetRect(VAR r: Rect; left, top, right, bottom: I NTEGER) 
000286 

000287 FUNCTION Equal Rect(recti, rect2: Rect): BOOLEAN 

000288 

000289 FUNCTION EmptyRect(r: Rect): BOOLEAN 

000290 

000291 PROCEDURE OffsetRect(VAR r: Rect; dh, dv: INTEGER) 
000292 

000293 PROCEDURE MapRect(VAR r: Rect; fromRect, toRect: Rect) 
000294 

000295 PROCEDURE InsetRect(VAR r: Rect; dh, dv: INTEGER); 
000296 

000297 FUNCTION SectRect(srcl, src2: Rect; VAR dstRect: Rect): BOOLEAN; 
000298 

000299 PROCEDURE UnionRect(srci, src2: Rect; VAR dstRect: Rect); 
000300 

000301 FUNCTION PtInRect(pt: Point; r: Rect): BOOLEAN; 

000302 

000303 PROCEDURE Pt2Rect(pti, pt2: Point; VAR dstRect: Rect) 
000304 

000305 PROCEDURE FrameRect(r: Rect); 

000306 

000307 PROCEDURE PaintRect(r: Rect); 

000308 

000309 PROCEDURE EraseRect(r: Rect); 

000310 

000311 PROCEDURE InvertRect(r: Rect); 

000312 

000313 PROCEDURE Fill Rect(r: Rect; pat: Pattern); 

000314 

000315 PROCEDURE FrameRoundRect(r: Rect; ovWd, ovHt: INTEGER); 
000316 

000317 PROCEDURE PaintRoundRect(r: Rect; ovWd, ovHt: INTEGER); 
000318 

000319 PROCEDURE EraseRoundRect(r: Rect; ovWd, ovHt: INTEGER); 
000320 

000321 PROCEDURE InvertRoundRect(r: Rect; ovWd, ovHt: INTEGER); 
000322 

000323 PROCEDURE Fill RoundRect(r: Rect; ovWd, ovHt: INTEGER; pat: Pattern) 
000324 

000325 PROCEDURE FrameOval(r: Rect); 
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000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
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PROCEDURE 
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PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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PaintOval(r: Rect); 

EraseOval(r: Rect); 

InvertOval(r: Rect); 

FillOval(r: Rect; pat: Pattern) 

FrameArc(r: Rect; startAngle, arcAngle: INTEGER); 

PaintArc(r: Rect; startAngle, arcAngle: INTEGER) 

EraseArc(r: Rect; startAngle, arcAngle: INTEGER) 

InvertArc(r: Rect; startAngle, arcAngle: I NTEGER) 

FillArc(r: Rect; startAngle, arcAngle: INTEGER; pat: Pattern) 


PtToAngle(r: Rect; pt: Point; VAR angle: INTEGER) 


FUNCTION OpenPoly: PolyHandle; 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


Cl osePol y; 

Kill Poly( poly: PolyHandle); 

OffsetPoly(poly: PolyHandle; dh, dv: | NTEGER) 
MapPoly(poly: PolyHandle; fromRect, toRect: Rect); 
FramePoly(poly: Pol yHandle); 

PaintPoly(poly: PolyHandle); 

ErasePoly(poly: Pol yHandle); 

InvertPoly(poly: Pol yHandle); 


Fill Poly(poly: PolyHandle; pat: Pattern); 


FUNCTION NewRgn: RgnHandl e; 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


Apple Lisa 


DisposeRgn(rgn: RgnHandle); 

CopyRgn(srcRgn, dstRgn: RgnHandl e) 
SetEmptyRgn(rgn: RgnHandl e) 

SetRectRgn(rgn: RgnHandle; left, top, right, bottom: INTEGER); 
RectRgn(rgn: RgnHandle; r: Rect); 

OpenRgn; 

CloseRgn(dstRgn: RgnHandle); 

OffsetRgn(rgn: RgnHandle; dh, dv: INTEGER); 
MapRgn(rgn: RgnHandle; fromRect, toRect: Rect); 
InsetRgn(rgn: RgnHandle; dh, dv: INTEGER); 
SectRgn(srcRgnA, srcRgnB, dstRgn: RgnHandle); 


UnionRgn(srcRgnA, srcRgnB, dstRgn: RgnHandle); 
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000392 

000393 PROCEDURE Diff Rgn(srcRgnA, srcRgnB, dstRgn: RgnHandl e) 

000394 

000395 PROCEDURE XorRgn(srcRgnA, srcRgnB, dstRgn: RgnHandle) 

000396 

000397 FUNCTION Equal Rgn(rgnA, rgnB: RgnHandle): BOOLEAN 

000398 

000399 FUNCTION EmptyRgn(rgn: RgnHandle): BOOLEAN 

000400 

000401 FUNCTION PtinRgn(pt: Point; rgn: RgnHandle): BOOLEAN 

000402 

000403 FUNCTION RectInRgn(r: Rect; rgn: RgnHandle): BOOLEAN 

000404 

000405 PROCEDURE FrameRgn(rgn: RgnHandle); 

000406 

000407 PROCEDURE PaintRgn(rgn: RgnHandl e); 

000408 

000409 PROCEDURE EraseRgn(rgn: RgnHandl e); 

000410 

000411 PROCEDURE InvertRgn(rgn: RgnHandl e) 

000412 

000413 PROCEDURE Fill Rgn(rgn: RgnHandle; pat: Pattern); 

000414 

000415 PROCEDURE Scroll Rect(dstRect: Rect; dh, dv: INTEGER; updateRgn: rgnHandle) 
000416 

000417 PROCEDURE CopyBits(srcBits, dstBits: BitMap; srcRect, dstRect: Rect; 
000418 mode: INTEGER; maskRgn: RgnHandl e) 

000419 

000420 FUNCTION OpenPicture(picFrame: Rect): PicHandle; 

000421 

000422 PROCEDURE ClosePicture 

000423 

000424 PROCEDURE DrawPicture(myPicture: PicHandle; dstRect: Rect); 

000425 

000426 PROCEDURE PicComment(kind, dataSize: INTEGER; dataHandle: QDHandl e) 
000427 

000428 PROCEDURE Kill Picture(myPicture: PicHandle); 

000429 

000430 PROCEDURE SetStdProcs(VAR procs: QDProcs); 

000431 

000432 PROCEDURE StdText(count: INTEGER; textAddr: QDPtr; numer, denom Point) 
000433 

000434 PROCEDURE StdLine(newPt: Point); 

000435 

000436 PROCEDURE StdRect(verb: GrafVerb; r: Rect); 

000437 

000438 PROCEDURE StdRRect(verb: GrafVerb; r: Rect; ovWd, ovHt: INTEGER) 
000439 

000440 PROCEDURE StdOval(verb: GrafVerb; r: Rect); 

000441 

000442 PROCEDURE StdArc(verb: GrafVerb; r: Rect; startAngle, arcAngle: INTEGER); 
000443 

000444 PROCEDURE StdPoly(verb: GrafVerb; poly: Pol yHandle); 

000445 

000446 PROCEDURE StdRgn(verb: GrafVerb; rgn: RgnHandle) 

000447 

000448 PROCEDURE StdBits(VAR srcBits: BitMap; VAR srcRect, dstRect: Rect; 
000449 mode: INTEGER; maskRgn: RgnHandle); 

000450 

000451 PROCEDURE StdComment(kind, dataSize: INTEGER; dataHandle: QDHandl e) 
000452 

000453 FUNCTION StdTxMeas(count: INTEGER; textAddr: QDPtr; VAR numer, denom Point 
000454 VAR info: FontInfo): INTEGER 

000455 

000456 PROCEDURE StdGetPic(dataPtr: QDPtr; byteCount: INTEGER); 

000457 
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000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 


End of 


Apple Lisa Computer Technical 


Information 


PROCEDURE StdPutPic(dataPtr: QDPtr; byteCount: I NTEGER) 


FUNCTION Get Pixel(h, v: INTEGER): BOOLEAN 
FUNCTION Random INTEGER 


PROCEDURE StuffHex(thingptr: QDPtr; s: Str255); 


PROCEDURE ForeCol or(color: Longl nt); 
PROCEDURE BackCol or(color: Longl nt); 


PROCEDURE Col orBit(whichBit: | NTEGER) 


KEK KKK KAR KKK KK KKK KR KR KKK KK KKK KR KK KKK KK KR KK ARK KR KKK KKK KKK KK KK KKK KKK KKK KKK KKK KEK 


x 


* THAT'S ALL FOLKS ... 


x 


KEK KKK KAR KK RRR KKK KKK RK KR KK KKK KR KR KKK ERK RK KARA KR KKK KKK KER KKK KKK RK KR KKK KAKA KKK KEK 


File -- Lines: 477 Characters: 12804 


Apple Lisa Desktop Library 3.0 Pascal 


Interfaces 


130 of 196 


Apple Lisa Computer Technical Information 


FILE: "LISA LIB 3 RECOVERY. TEXT" 


000001 KKK KKKKKKK KK KKK KKK KAR KKK KKK KKK KK ARK KKK KKK KKK KK ARK KAR KKK KKK KKK KKK KKK KAR KKKKKKKKKKE 
000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : RECOVERY 
000004 * 

000005 KKK KKKKKKK KK KKK KKK KARR KK KKK KKK KK ARK KKK KKK KKK KAKA KKK KKK KKK KKK KARR KAR KKKKKKKKKKE 
000006 

000007 USES {$U+} RECOVERY 

000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$l FC OSBUILT } 

000016 {$U libsm/unitstd. obj } unitstd 

000017 {$U li bdb/dbenv. obj } dbenv 

000018 {$U libin/INTRLIBp. obj } international 
000019 {$U libdb/dbdecl 1. obj } dbdecll, 

000020 {$U libos/syscall. obj } syscall 

000021 {$U libos/psyscall.obj } psyscall 

000022 {$U libdb/lowlevel.obj } lowlevel 

000023 {$U libdb/ pooler. obj } pooler, 

000024 {$U libdb/ heap. obj } heap 

000025 {$U libdb/czcompact.obj } czCompact, 

000026 {$U libdb/vitree. obj } vitree 

000027 {$U li bdb/ scan. obj } scan, 

000028 {$U libdb/labscan. obj } labscan 

000029 {$U li bdb/ schema. obj } schema; 

000030 {$ELSEC } 

000031 {$U OB): dbenv. obj } dbenv 

000032 {$U I NTRLIB. obj } international 
000033 {$U OBJ: dbdecl 1. obj } dbdecl1, 

000034 {$U OB): syscall. obj } syscall 

000035 {$U OB): l owl evel. obj } | owl evel 

000036 {$U OBJ: pooler. obj } pooler 

000037 {$U OB): heap. obj } heap, 

000038 {$U OB): czcompact. obj } czCompact, 

000039 {$U OB): vitree. obj } vitree 

000040 {$U OB): scan. obj } scan, 

000041 {$U OB): labscan. obj } labscan, 

000042 {$U OB): schema. obj } schema; 

000043 {$ENDC } 

000044 

000045 const 

000046 

000047 

000048 War nl ndex = 0 

000049 WarnNoSchema = 1; 

000050 WarnOl dSchema = 2: 

000051 BadFileDesc = 3400 

000052 BadFileSchema = 3401; 

000053 

000054 PROCEDURE FileRecover(VAR ddresult: integer; VAR warnings: elemset; 
000055 oldprefix, newprefix, pfname, pnewname 
000056 precname: ptrpathname 

000057 

000058 PROCEDURE 

000059 ECheck(EC: ecstr; ftype: integer; VAR Check: checkinfo 
000060 VAR result: integer); 
000061 
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PROCEDURE 

indexmake(VAR ddresult: integer; ifilename, filename, 
tempdirl, tempdir2: ptrpathname; 
temp _Idsn: integer; nisort, nikeys: integer; 
piflds: ptridesc; duplok: boolean); 


PROCEDURE 
MarksRevenge(VAR result: integer; 
VAR warnings: elemset; Isid: integer); 


ToolsMarketCode: integer); 


000074 KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KR KKK EK KR KK ARK ERK KKK KKK E RK KR KK KKK KR KR KKK KK KKK KEK 


000075 * 
000076 * 
000077 * 


THAT'S ALL FOLKS ... 


000078 KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KK KKK EK KR KK ARK ER KKK KKK KER KKK KK KKK KR KKK KAKA KKK KEK 


000079 


End of File -- 
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79 Characters: 2585 


FILE: 


000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 


Apple Lisa Computer Technical 


Information 


"LISA LIB 3 REFS. TEXT" 


KEK KKK KKK KKK KR KKK KKK RK KK KK KR KK RK RRR K RK KR KK ARK KR KKK KKK RK KK KKK KKK KR KR KKK KK KKK KEK 


x 


* APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) 


x 


REFS 


KEK KKK KAR KK RRR KKK KKK RK KK KK KKK KARR KKK RK KR KK ARK KR KKK KK KKK RK KR KK KKK KKK KKK KKK KKK KEK 


USES {$U+} REFS; 


{$1 FC isintrin} INTRINSIC; 
INTERFACE 


USES 
{$1FC SrcOn0S } 


{$ENDC} 


(*$U OB) /PASDEFS. OB) *) PasDefs, 
(*$U OB) /MEMMAN. OB) *) MemMan, 
(*$U OBJ / LISTS. OB) *) Lists 
{$ELSEC } 
(*$U OB): PASDEFS. OB) *) PasDefs, 
(*$U OB): MEMMAN. OB) *) MemMan, 
(*$U OB): LISTS. OB) *) Lists 
{$ENDC } 
TYPE 
Ref = integer; 
Ref HRow = ARRAY [ - 128..127] OF Ref; 
Ref HRowPt r = “Ref HRow 
Ref HArr = ARRAY [ - 128..127] OF Ref HRowPtr 
Ref HPtr = “Ref HArr: 
Ref Rec = RECORD 
refloc: integer; 
nextref: Ref; 
END; 
Ref Row = ARRAY [ - 128..127] OF Ref Rec 
Ref RowPt r = “Ref Row; 
Ref Arr = ARRAY [ - 128..127] OF Ref RowPtr; 
Ref Arr Ptr = *RefArr: 
Ref Handle = “Ref Obj ect; 
Ref Obj ect = RECORD 
memRefs: MMHandle; 
refHeads: RefHPtr; 
refStore: RefArrPtr; 
refsLH: ListHandle 
END; 
FUNCTION AddRef(rh: RefHandle; head: Ref; |: integer; FUNCTION 
Get More(n, row: integer): boolean): Ref; 
PROCEDURE EachRef(rh: RefHandle; head: Ref; PROCEDURE 
Visit(i: Ref)); 
FUNCTION MoreHeads(rh: RefHandle; n, row: integer): boolean; 
PROCEDURE NewRefList(rh: RefHandle; head: Ref); 
PROCEDURE I nitRLists 
FUNCTION InitRefs(nHeads, nRefs: longint): RefHandle; 


Apple Lisa Desktop Library 3.0 Pascal 


Interfaces 133 of 


196 


000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 


End of 


Apple Lisa Desktop Library 3.0 Pascal . 


Apple Lisa Computer Technical Information 


PROCEDURE CopyRefLists(rh: RefHandle; old, new: Ref); 


KEK KKK KAR KK KK KKK KR KR KKK KK KKK KAKA KKK KK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KR KKK KKK KKK EK 


x 


‘ THAT'S ALL FOLKS ... 


x 


KEK KKK KKK KKK KK KKK KKK RK KR KK KKK KR KR KKK EK KR KK ARK KR KKK KK KKK RK KR KK KKK KKK RK K KKK KKK KKK 


File -- Lines: 70 Characters: 1976 
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FILE: "LISA LIB 3 SCAN. TEXT" 


000001 KEK KKK KAR KK RK KKK KK RRR KKK KK KR KK RK KKK KEK KR KK ARK RR KKK KK KKK RK K RRR KKK KKK KKK KKK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SCAN 

000004 * 

000005 KKK KKKKKKKKK KKK KARR KARR KK KKK KKK KK ARK KKK KKK KKK KK ARK KAR KKK KKK KKK KKK KARR KARR KKKKKKKKKKE 
000006 

000007 USES {$U+} SCAN 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$I FC OSBUILT } 

000016 {$U libsm/unitstd. obj } unitstd, 

000017 {$U libdb/dbenv.obj } dbenv 

000018 {$U libin/INTRLIBp. obj } international 

000019 {$U libdb/dbdecl1.obj } dbdecl1, 

000020 {$U libos/syscall.obj } syscall 

000021 {$U libos/psyscall.obj } psyscall 

000022 {$U libdb/lowlevel.obj } lowlevel 

000023 {$U libdb/pooler.obj } pooler 

000024 {$U libdb/ heap. obj } heap 

000025 {$U libdb/czcompact.obj } czCompact, 

000026 {$U libdb/vitree.obj } vitree 

000027 {$ELSEC} 

000028 {$U OB): dbenv.obj } dbenv 

000029 {$U I NTRLIB. obj } international 

000030 {$U OB): dbdecl1.obj } dbdecl1, 

000031 {$U OB): syscall.obj } syscall 

000032 {$U OB): lowlevel.obj } lowlevel 

000033 {$U OB): pooler.obj } pooler 

000034 {$U OB): heap.obj } heap 

000035 {$U OB): czcompact.obj } czCompact, 

000036 {$U OB): vitree.obj } vitree 

000037 {$ENDC} 

000038 

000039 FUNCTION SParmsBad(scanid: integer; which: integer; nsearch: integer; 
000040 pentry: ptrdata): integer 

000041 

000042 FUNCTION scanidbad(scanid: integer): boolean; 

000043 

000044 PROCEDURE pstack_validate(VAR sresult: integer) 

000045 

000046 FUNCTION keysize(fileid: integer; pentry: ptrdata): integer 
000047 

000048 PROCEDURE einsert(VAR sresult: integer; VAR offender: integer 
000049 scanid: integer; pentry: ptrdata; size: integer 
000050 newticket: bool ean) 

000051 

000052 PROCEDURE efetch(VAR sresult: integer; scanid: integer; which: integer 
000053 nsearch: integer; pentry: ptrdata); 

000054 

000055 PROCEDURE eupdate(VAR sresult: integer; VAR offender: integer 
000056 scanid: integer; which: integer; nsearch: integer 
000057 pentry: ptrdata; pnewrec: ptrdata; size: integer); 
000058 

000059 PROCEDURE edelete(VAR sresult: integer; scanid: integer; which: integer 
000060 nsearch: integer; pentry: ptrdata) 

000061 
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000062 
000063 
000064 
000065 
000066 
000067 


End of 
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KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK EK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KKK KK KKK KEK 


x 


; THAT'S ALL FOLKS ... 


x 


KEK KKK KAR KK RK KKK KKK KR KKK KK KKK KARR KKK ERK RK KARR KR KKK KKK KKK KK RRR KKK KR KR KKK KK KKK KEK 


File -- Lines: 67 Characters: 2224 
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FILE: "LISA LIB 3 SCHEMA, TEXT" 


000001 KEK KKK KAR KKK KKK KKK KR KKK KK KER KK AKA KKK KKK RK KAR KER KKK KKK KKK K KAKA KKK KR KR KKK KKK KKK EK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SCHEMA 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG GGG IGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} SCHEMA; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$l FC OSBUILT } 

000016 {$U libsm/unitstd. obj } unitstd, 
000017 {$U libdb/dbenv.obj } dbenv 
000018 {$U libin/INTRLIBp. obj } international 
000019 {$U libdb/dbdecl1.obj } dbdecl1, 
000020 {$U libos/syscall.obj } syscall 
000021 {$U libos/psyscall.obj } psyscall 
000022 {$U libdb/lowlevel.obj } lowlevel 
000023 {$U libdb/pooler.obj } pooler 
000024 {$U libdb/ heap. obj } heap 

000025 {$U libdb/czcompact.obj } czCompact, 
000026 {$U libdb/vitree. obj } vitree 
000027 {$U libdb/scan. obj } scan, 

000028 {$U libdb/labscan. obj } labscan 
000029 {$ELSEC } 

000030 {$U OBJ: dbenv. obj } dbenv, 

000031 {$U I NTRLIB. obj } international 
000032 {$U OB): dbdecl1.obj } dbdecll, 
000033 {$U OBJ): syscall.obj } syscall 
000034 {$U OB): lowlevel.obj } lowlevel 
000035 {$U OB): pooler.obj } pooler 
000036 {$U OBJ: heap. obj } heap, 

000037 {$U OB): czcompact.obj } czCompact, 
000038 {$U OB): vitree.obj } vitree 
000039 {$U OBJ: scan.obj } scan, 

000040 {$U OBJ): labscan.obj } labscan; 
000041 {$ENDC } 

000042 

000043 const 

000044 

000045 

000046 indexfile = 0; 

000047 fileschema = 1; 

000048 queryCheckPoint = 2; 

000049 not_needed = 0; 

000050 via_only = 1; 

000051 on_only = 2; 

000052 on_and_ via = 3; 

000053 new_index = 4: 

000054 

000055 TYPE 

000056 isegment = PACKED RECORD 
000057 aord: 0..1; 
000058 field: 0..32767; 
000059 END; 

000060 ptrisegment = “*isegment 

000061 i desc = ARRAY [0..0] OF isegment; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 


End of 
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ptridesc = “idesc; 

ientry = RECORD 
lab: labelentry; 
iduplok: boolean; 
isort: integer; 
ikeys: integer; 
iunique: uniqueid; 
iflds: idesc; 

END; 

ptrientry = “ientry; 

PROCEDURE filldesc(VAR ddresult: integer; pfile: ptrfiledesc); 

PROCEDURE makefile(VAR ddresult: integer; pname: ptrpathname 
pfdesc: ptrfiledesc); 

PROCEDURE openindexes(VAR ddresult: integer; VAR viafile: integer 
scanid: integer; ifilename: ptrpathname 
intent: integer; labelusage: integer) 

PROCEDURE cvt_scan(VAR ddresult: integer; scanid, sintent 
sviafile: integer); 

PROCEDURE initpool(VAR ddresult: integer; first time: boolean; 
heap_Idsn: integer; nbuff: integer; dheapsize: integer 
pheapname: ptrpathname; dstype: Tdstype 
pagesize: integer); 

PROCEDURE flushscan(VAR ddresult: integer; scanid: integer); 

PROCEDURE closescan(VAR ddresult: integer; scanid: integer); 

PROCEDURE openscan(VAR ddresult: integer; onname, vianame: ptrpathname 

VAR scanid: integer; sintent: integer); 

PROCEDURE makedescfile(VAR ddresult: integer; pname: ptrpathname 

pfdesc: ptrfiledesc); 

PROCEDURE clonefile(VAR ddresult: integer; sourcefile, filename: ptrpathname 

needtomakefile: boolean) 

PROCEDURE makeformfile(VAR ddresult: integer; pform ptrdata; 

pfname: ptrpathname; needtomakefile: boolean); 

PROCEDURE quick_label scan(VAR ddresult: integer; scanid: integer 

sintent: integer; VAR Iscanid: integer); 

PROCEDURE get _header(VAR ddresult: integer; scanid: integer 

VAR head: header); 

PROCEDURE getform( VAR ddresult: integer; scanid: integer; pdesc: ptrdata); 

PROCEDURE deletefile(VAR ddresult: integer; pfname: ptrpathname) 

PROCEDURE deleteindex(VAR ddresult: integer; piname, pfname: ptrpathname); 
KKK KKKKKKKK KKK KK ARK KAR KKK KKK KKK KK ARK KKK KK KK KKK KARR KARR KK KKK KKK KKK KKK KAR KKKKKKKKKKE 
x 
* THAT'S ALL FOLKS ... 

x 
KKK KKKKKKK KK KKK KARR KAR KKK KKK KKK KK AAR KKK KKK KKK KAKA KKK KKK KKK KKK KKK KA KKKKKKKKKKKE 
File -- Lines: 123 Characters: 4043 
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FILE: "LISA LIB 3 SCRAP, TEXT" 
000001 KAA KKKKKKKKK KKK KKK KAR KKK KKK KKK KK ARK KKK KKK KKK KK ARK KKK KKK KKK KKK KKK KAR KKKKKKKKKKE 
000002 * 
000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SCRAP 
000004 * 
000005 KKK KKKKKKK KK KKK KKK KARR KK KK KKK KKK ARK KKK KKK KKK KK ARK KKK KKK KKK KKK KARR KAR KK KKKKKKKKE 
000006 
000007 USES {$U+} SCRAP; 
000008 
000009 
000010 INTRINSIC SHARED; 
000011 
000012 INTERFACE 
000013 
000014 USES 
000015 {$U libsm/ UnitStd } UnitStd, 
000016 {$U libsm/ UnitHz } UnitHz, 
000017 {$U libos/SysCall } SysCall, 
000018 {$U libsu/UnitFile  } UnitFile, 
000019 {$U libqd/QuickDraw } QuickDraw, 
000020 {$U |i bf m/ Font Mgr } Font Mgr, 
000021 {$U libqd/ Storage } Storage, 
000022 {$U li bwm/ Events } Events, 
000023 {$U libwm/ Folders } Folders, 
000024 {$U libsb/ Wml Std } Wn Std, 
000025 {$U libsb/ Wm sb } Wm sb, 
000026 {$U libsu/ Unit Fmt } Unit Fmt, 
000027 {$U |i bpm/ PmDec! } PmDecl, 
000028 {$U libpr/PrStdinfo } PrStdinfo, 
000029 {$U libsu/ UnitCs } Unitcs, 
000030 {$U libsu/ Unit FigAtom} UnitFi gAtom, 
000031 {$U libsu/ Unit Ff } UnitFf; 
000032 
000033 CONST 
000034 ScrapNil = 0; 
000035 ScrapFeE = 2: 
000036 ScrapMt x = 3; 
000037 ScrapBGraf = 4; 
000038 ScrapList = 5; 
000039 ScrapDwg = 6; 
000040 ScrapPert = 7; 
000041 ScrapCs = 12; 
000042 ScrapUG = 13; 
000043 SecondOpenScrapCall = 4050; 
000044 HZINITfailed = 4051; 
000045 NoUndoScrap = 4052; 
000046 TooManyProcesses = 4053; 
000047 ProcCalledByNonOwner = 4054; 
000048 ProcessNotFound = 4055; 
000049 ScrapNot Picture = 4059; 
000050 DataSegNotOpen = - 4060; 
000051 
000052 TYPE 
000053 ScrapType = 0..15; 
000054 
000055 VAR 
000056 icsFf Scrap: TB; 
000057 ifil Scrap: TB; 
000058 CurrScrapSet: SET OF ScrapType; 
000059 ScraplFigures RefNum, Scrap2Figures RefNum, ScraplLotus_ Ref Num, 
000060 Scrap2Lotus RefNum: TL; 
000061 
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000116 
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000118 
000119 


End of 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
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InitScrap(VAR InitErr: Integer); 


Kill ScrapOwner(Who: Processid; VAR KillErr: TC); 


ReviveScrapOwner( Who: Processld) 
DrawUScrap(VAR DrawErr: TC); 
BackOut Of Scrap; 

OpenScrap(VAR OpenErr: Integer); 


FUNCTION DSegOf Scrap: Integer 


FUNCTION AddrofScrapDSeg: Longl nt; 


FUNCTION HzOfScrap: THz 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


Cl ai mScrap; 

InheritScrap(SaveOld: Boolean); 

Undol nheritScrap(VAR UndoErr: integer); 

Accepti nheritScrap; 

EraseScrapData( VAR EraseErr: integer) 

Start PutScrap(VAR PutErr: integer); 
PutScrap(which: ScrapType; what: TH; VAR PutErr: integer) 
PutGrScrap( What: PicHandle; VAR PutErr: integer) 
PutCsScrap(icsContents: TB; VAR PutCSErr: integer) 
EndPutScrap(VAR PutErr: integer); 
StartGetScrap(VAR GetErr: integer) 

GetScrap(VAR which: ScrapType; VAR what: TH); 

Get GrScrap(VAR What: PicHandle); 

Get CsScrap(VAR Contents: TB); 

EndGetScrap(VAR GetErr: integer); 

bi ndUTDSeg( VAR BindErr: integer) 


unBi ndUTDSeg(VAR UnBindErr: integer); 


KEK KKK KAKA KR KK KKK KKK RK KR KK ERK KR KR KKK RK KR KK ARK KR KKK KKK KER KKK KK KKK KR KK KKK KK KKK KEK 
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x 
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THAT'S ALL FOLKS ... 
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FILE: "LISA LIB 3 SHELLCOMM. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK KKK KAKA KKK RK KR KK ARK KR KKK KKK KER KAKA KK KKK RRR RK KAKA KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SHELLCOM 

000004 * 

000005 RR GGG IGG IGG IGG IGG IGG GGG IGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} SHELLCOM 


000008 

000009 

000010 INTRINSIC SHARED 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U StdUnit } StdUnit; 

000016 

000017 CONST 

000018 SCNone =- 1; 

000019 SCAny = 0; 

000020 SCText Soh 

000021 SCBuf r Max = 1023 

000022 SC_SetReallyStop = 1; 

000023 SC_GetReallyStop = 2; 

000024 SC_SetUnSavedEdits = 6960 

000025 SC_GetUnSavedEdits = 8751; 

000026 

000027 VAR 

000028 SCRet Str: SUStr: 

000029 SCRunCmnd: SUStr; 

000030 SCBufr: PACKED ARRAY [0..1023] OF CHAR 
000031 SCExecAbort: BOOLEAN 

000032 SCReallyStopExec: BOOLEAN; 

000033 SCUnSavedEdits: BOOLEAN 

000034 

000035 PROCEDURE SCI nit; 

000036 

000037 PROCEDURE SCSet RunCmd(RC: SUStr); 

000038 

000039 PROCEDURE SCSetRetStr(RS: SUStr); 

000040 

000041 PROCEDURE SCSetExecAbort(B: BOOLEAN); 
000042 

000043 PROCEDURE SCReWrite(WriteType: INTEGER; Key: SUStr); 
000044 

000045 FUNCTION SCReset(ReadType: INTEGER; Key: SUStr): BOOLEAN 
000046 

000047 FUNCTION SCClose(Kill Bufr: BOOLEAN; Key: SUStr): BOOLEAN 
000048 

000049 FUNCTION SCPutCh(Ch: CHAR): BOOLEAN 
000050 

000051 FUNCTION SCGetCh( VAR Ch: CHAR): BOOLEAN 
000052 

000053 FUNCTION SCPutLine(L: SUStr): BOOLEAN 
000054 

000055 FUNCTION SCGetLine(VAR L: SUStr): BOOLEAN 
000056 

000057 FUNCTION SCShel | Cmd(Cmd: INTEGER; P: SUStrP): BOOLEAN 
000058 


000059 KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RK KKK KEK KR KK ARK KR KKK KR RRR KKK KK KKK KR KR KKK KK KKK KEK 


000060 * 
000061 * THAT'S ALL FOLKS ... 
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000062 * 


000064 
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FILE: "LISA LIB 3 STDUNIT. TEXT" 
000001 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK RK KK KK KEK KK KK KEK KK KK EKA KKK 
000002 * 
000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : STDUNIT 
000004 * 
000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK RK KK KK KEK KK KK EK KKK 
000006 
000007 USES {$U+} STDUNIT; 
000008 
000009 
000010 INTRINSIC; 
000011 
000012 INTERFACE 
000013 
000014 USES 
000015 {$U |i bOS/SysCall. obj } SysCall 
000016 {$U |i bPL/PasLibCall.obj } PasLibCal| 
000017 {$U |i bPL/ PPasLi bC. obj } PPasLi bC 
000018 
000019 CONST 
000020 SUMaxStrLeng = 255; 
000021 SUNuI | Str SN 
000022 SUSpace Sar 
000023 SUOrdCR = 13; 
000024 SUMaxPNLeng = 66 
000025 SUMaxVNLeng = 33; 
000026 SUMaxFNLeng = 32; 
000027 SUVol Suffix Sethe 
000028 
000029 TYPE 
000030 SUSet Of Char = SET OF CHAR 
000031 SUStrP = “*$UStr 
000032 SUStr = STRING[ 255] 
000033 SUVol Name = STRING[ SUMaxVNLeng] 
000034 SUFile = FILE; 
000035 SUFileP = *SUFile: 
000036 PromptState = (SUDefault, SUEscape, SUNone, SUOptions, SUValid, 
000037 SUI nvalid) 
000038 ErrTextRet = (SUOk, SUBadEFOpen, SUBadEFRead, SUErrNNot Found) 
000039 ConvNState = (SUValidN, SUNoN, SUBadN, SUNOverFl ow); 
000040 
000041 VAR 
000042 SUOs Boot V: SUVol Name 
000043 SUMyProcV: SUVol Name 
000044 SUBell, SUBackSpace, SUCr, SUTab, SUEsc, SUDIle, SUNul: CHAR 
000045 SUNul IS: SUStr; 
000046 SUKeyBoard: INTERACTIVE; 
000047 
000048 PROCEDURE SUI nit 
000049 
000050 PROCEDURE SUDone; 
000051 
000052 FUNCTION SUUpCh(Ch: CHAR): CHAR 
000053 
000054 FUNCTION SULowCh(Ch: CHAR): CHAR 
000055 
000056 PROCEDURE SUUpStr(S: SUStrP); 
000057 
000058 PROCEDURE SULowStr(S: SUStrP); 
000059 
000060 FUNCTION SUEqStr(S1: SUStrP; $2: SUStrP): BOOLEAN 
000061 
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FUNCTION SUEq2Str($1: SUStrP; $2: SUStr): BOOLEAN 


PROCEDURE SUTrimleading(S: SUStrP); 


PROCEDURE SUTrimfrailing($: SUStrP); 


PROCEDURE SUTri mBl anks(S: SUStrP); 


PROCEDURE SUAddCh(S: SUStrP; Ch: CHAR; MaxStrLeng: 


VAR OverFlow: BOOLEAN); 


PROCEDURE SUConcat(S1: SUStrP; $2: SUStrP); 


PROCEDURE SUAddStr(S1: SUStrP; $2: SUStrP 


VAR OverFlow: BOOLEAN) 


PROCEDURE SUSetStr( Dest: SUStrP; Src: SUStrP); 


PROCEDURE SUCopyStr(Dest: SUStrP; Src: SUStrP; 


FUNCTION SUI SVolName( FN: SUStrP): BOOLEAN 


PROCEDURE SUVol Part(PathN: SUStrP; VoIN: SUStrP) 


PROCEDURE SUAddExtension( FN: SUStrP;: DefExt: 
VAR OverFlow: BOOLEAN) 
PROCEDURE SUSplitFN( PathN: Cat N: 


SUStrP; SUStrP; 


PROCEDURE SUMakeFN( PathN: SUStrP; CatN: SUStrP: 
VAR OverFlow: BOOLEAN) 

PROCEDURE SUChKFN( FN 
Def FN: 


SUStrP; VAR PState: 
SUStr; DefExt: SUStr); 


PROCEDURE SUGetCh(VAR Ch: CHAR); 


PROCEDURE SUGetLine(S: SUStrP; VAR PState: 


PROCEDURE SUGetStr(S: SUStrP; VAR PState: 


PROCEDURE SUGet FN( FN: 


Def FN: 


SUStrP; VAR PState: 
SUStr: DefExt: SUStr); 


PROCEDURE SUGetI nt(VAR |: INTEGER; VAR PState 


PROCEDURE SUWaitEscOrSp( VAR PState: Prompt State) 


PROCEDURE SUWaitSp 


PROCEDURE SUGet Chi nSet(VAR Ch: CHAR; Chars: 


FUNCTION SUGet YesNo: BOOLEAN; 


FUNCTION SUGet Bool (Default: BOOLEAN): BOOLEAN 


PROCEDURE SUGetErrText(ErrFN: SUStr; ErrN 


VAR ErrRet: ErrTextRet); 


PROCEDURE SUErrText(ErrFN: SUStr; ErrN: INTEGER 


PROCEDURE SUStopExec(VAR ErrNum: INTEGER); 


PROCEDURE SUCI oseExec(VAR ErrNum INTEGER); 


PROCEDURE SUI nitSysVols; 


Apple Lisa Desktop Library 3.0 Pascal 


MaxStrLeng: 


Start, 


SUStr; 


FN: 


FN: 


Prompt State; 


Prompt State; 


Prompt State; 


Prompt State; 


INTEGER; 


Err Msg: 


Interfaces 


INTEGER; 


| NTEGER; 


Count: INTEGER); 


MaxStrLeng: INTEGER; 


SUStrP; Ext: SUStrP) 


SUStrP; Ext: SUStr 


Def Vol: SUStr; 


Prompt State); 


Def Val: SUStr); 


Def Vol: SUStr; 


Def Val: 


SUSet Of Char); 


ErrMsg: SUStrP; 


SUStrP); 
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PROCEDURE SUSysReset(F: SUFileP; FN: SUStr; VAR | OStatus: 


PROCEDURE SUI ntToStr(N: INTEGER; S$: SUStrP); 
PROCEDURE SULIntToStr(N: LONGINT; S: SUStrP); 


PROCEDURE SUStrTolnt(NS: SUStrP; VAR N: INTEGER; VAR CState: 


PROCEDURE SUStrToLIi nt(NS: SUStrP; VAR N: LONGINT; VAR CState: 


| NTEGER) ; 


ConvNState); 


ConvNState); 


KEK KKK KKK KK RK RK KK KKK RK KK KK KR KK ARK KKK RK KR KKK RK KR KKK KKK KER KKK KK KKK KR KR KKK KK KKK KEK 


x 


: THAT'S ALL FOLKS ... 


* 
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FILE: "LISA LIB 3 STORAGE. TEXT" 


000001 KEK KKK KAKA KR KR KKK KKK RK KR KK ERK KR KR KKK RK KR KK KKK ERK KKK KKK ERK KR KK KKK KR KK KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : STORAGE 

000004 * 

000005 RR GGG IGG IGG GG GGG IGG IGG IGG IGG GGG RRR RAKES 
000006 

000007 USES {$U+} STORAGE; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES {$U libsm/UnitStd } UnitStd 
000015 {$U libsm/ UnitHz } Uni tHz 

000016 

000017 TYPE 

000018 Ptr = TP; 

000019 Handle = TH 

000020 Rel Handle = INTEGER 

000021 ProcPtr = TProc 

000022 

000023 VAR 

000024 theHeap: THz; 

000025 ordHeap: Longl nt; 

000026 

000027 PROCEDURE InitHeap(startPtr, limitPtr: Ptr; errorProc: ProcPtr); 
000028 

000029 PROCEDURE SetHeap(hz: Thz); 

000030 

000031 PROCEDURE GetHeap(VAR hz: Thz); 

000032 

000033 FUNCTION NewPtr(byteCount: INTEGER): Ptr; 
000034 

000035 PROCEDURE DisposePtr(p: Ptr); 

000036 

000037 FUNCTION NewHandle(byteCount: INTEGER): Handle; 
000038 

000039 PROCEDURE DisposeHandle(h: Handle); 

000040 

000041 PROCEDURE SetSize(h: Handle; newSize: INTEGER); 
000042 

000043 FUNCTION GetSize(h: Handle): INTEGER 

000044 

000045 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KEK KK KK KEK KK KK EK KKKK 
000046 * 

000047 * THAT'S ALL FOLKS ... 
000048 * 


000049 KEK KKK KAR KK RRR KKK KR KR KKK KK ERK KAKA KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KK KKK KK KKK KKK 


000050 


End of File -- Lines: 50 Characters: 1075 
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FILE: "LISA LIB 3 SYS1LOCK. TEXT" 


000001 KEK KKK KAR KK RK R KKK KKK RK KK KK ERK KR KK KKK RK KR KK KKK ERK KKK KKK KR KKK KK KKK KKK RK K KKK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : SYSILOCK 

000004 * 

000005 kA GGG IGG IGG IGG IGG GGG GGG GGG GGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} SYS1LOCK; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U li bsm/ Unit Std } UnitStd 
000016 {$U libos/SysCall. Obj } SysCall 
000017 {$U libos/PSysCall. obj } PSysCal| 
000018 

000019 PROCEDURE LkSYSINIT( VAR err: INTEGER) 
000020 

000021 PROCEDURE LkKOPSEG1( VAR err: INTEGER) 
000022 

000023 PROCEDURE LkOPSEG2( VAR err: INTEGER) 
000024 

000025 PROCEDURE LkACTIVATE(VAR err: Integer) 
000026 

000027 PROCEDURE LkKWORKSET( VAR err: INTEGER) 
000028 

000029 PROCEDURE LKGRAFSEG( VAR err: INTEGER) 
000030 

000031 PROCEDURE LkMOVERS( VAR err: INTEGER); 
000032 

000033 PROCEDURE LkOPENILW VAR err: Integer) 
000034 

000035 PROCEDURE LkLWWORK( VAR err: Integer) 
000036 

000037 PROCEDURE LkOTHRWORK(VAR err: Integer) 
000038 

000039 PROCEDURE LKNEVER( VAR err: INTEGER) 
000040 

000041 PROCEDURE LkFmgrutil(VAR err: Integer) 
000042 

000043 PROCEDURE LkPMMSeg( VAR err: INTEGER) 
000044 

000045 PROCEDURE LkWMwarm( VAR err: Integer) 
000046 

000047 PROCEDURE LkWMjrni(VAR err: Integer); 
000048 

000049 PROCEDURE LkWMalert( VAR err: INTEGER) 
000050 

000051 PROCEDURE Lkalert(VAR err: INTEGER) 
000052 

000053 PROCEDURE LkSMcold( VAR err: INTEGER) 
000054 

000055 PROCEDURE LkSUcol d( VAR err: INTEGER) 
000056 

000057 PROCEDURE LkFEcol d( VAR err: INTEGER) 
000058 

000059 PROCEDURE LkSBcold( VAR err: INTEGER) 
000060 

000061 PROCEDURE LkINcold( VAR err: INTEGER) 
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PROCEDURE LkWMcold(VAR err: Integer); 


KEK KKK KAR KKK KK KKK KKK RK KR KK KKK KR KR KKK KK KR KK ARK KR KKK KKK KER KKK KKK KKK KR KKK KKK KKK KK 


x 


‘ THAT'S ALL FOLKS ... 


x 
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FILE: "LISA LIB 3 TEENV. TEXT" 


000001 KEK KKK KKK KK RK KKK KKK KR KKK KK KR KK RK RRR K RK KR KK ARK KR KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : TEENV 

000004 * 

000005 RR GGG GIG IGG IGG IGG IGG GGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} TEENV; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/ UnitStd } Unit Std, 
000016 {$U libsm/ UnitHz } UnitHz, 
000017 {$U libqd/ Storage } Storage, 
000018 {$U libqd/QuickDraw } QuickDraw, 
000019 {$U |i bf m/ Font Mgr } Font Mgr, 
000020 {$U libdb/dbenv } dbenv 
000021 {$U libfe/fedec} FEDec, 
000022 {$U libfe/fld } fieldedit; 
000023 {$SETC teProduction := NOT FDbgOK } 
000024 {$SETC teSym:= FSym0K} 
000025 {$SETC TEDEBUG := NOT teProduction } 
000026 {$SETC doTraceTE := TRUE} 
000027 {$SetC fTraceTE := doTraceTE AND f TRACE} 
000028 

000029 CONST 

000030 OK = 0; 

000031 Out Of Mem = 1; 

000032 InvalidCel | = 2: 

000033 rmDel = 3: 

000034 r mOk = 4: 

000035 rmRe Name = 5: 

000036 parseeErr = 6; 

000037 undoErr = 7} 

000038 badField = 8: 

000039 cvnot enuf f = 9: 

000040 crnot enuff = 10; 

000041 null Snip = 0; 

000042 pl nf Snip = + 2; 

000043 mi nf Snip =- 1; 

000044 null Ti meout = 0; 

000045 dfltTimeout =- 1 

000046 cFol derpnl = 0; 

000047 cCel | Pol = 1; 

000048 cTbl Pol = 2" 

000049 cW dePnl = 3; 

000050 cDi al ogPnl = 4; 

000051 cScrapPnl = 5; 

000052 null Pol =- 1; 

000053 cBitmapH = 720; 

000054 cBitmapV = 20; 

000055 {$l FC NOT TEDEBUG} 

000056 TraceFmgr = FALSE; 
000057 {$ENDC } 

000058 

000059 TYPE 

000060 bit ptr = “Bitmap; 
000061 Pni I ndex = | NTEGER; 
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Panel 


panel ptr 
pni Handle 
STR40 
str9 
str100 
pixel 
idType 
rgKi nd 


rgj ust 


rgX 
range 


fract 
sni pKi nd 
Sel Kind 
Tbl Part 


Tabl eRecord 


t mBand 


cell ParType 
i dModeType 
mcType 


RECORD 
Pni Port: Graf Ptr; 
Offset: Point; 
Pni Rect: Rect; 
END; 
“Panel; 
“panel ptr; 
string[ 40]; 
string[9]; 
string[100]; 
integer; 
integer; 
(aNull Rg, alCell Rg, aRectRg, aRowRg, aColRg, aRowGrid, 
aCol Grid, aRowHedRg, aCol HedRg, aWTBoxRg, aTbl HedRg) 
(top), bot), left), right), botLeft), topLeft), topRight), 


near] ); 

“range; 

RECORD 
rKind: rgKind; 
loRow: idType; 
loCol: idType; 
hi Row: idType; 
hiCol: idType; 

END; 

| NTEGER; 


(rowKind, col Kind); 

(aNul1S1, aCellTxtSl, alCel!SI, aRectRgSI, aRowRgSl 
aCol RgSIl, aRowGrdS!, aColGrdS!, aRowHedSI, aCol HedS| 
aTbl HedSI|, aWTBoxSl); 


= (outOfTbl, cellArea, rowGrid, colGrid, rowHandl, col Handl 


rowHed, colHed, whTbBox, tbl Hed) 
RECORD 
SplitTable: BOOLEAN 
Rect Border: BOOLEAN 
Marquee: BOOLEAN; 
Col Handles: BOOLEAN 
ColGrids: BOOLEAN 
ColGridHandles: BOOLEAN 
Col RangeOk: BOOLEAN 
EditCol Title: BOOLEAN 
InsertCols: BOOLEAN 
EdBl ankCol: BOOLEAN 
RowHandles: BOOLEAN 
RowGrids: BOOLEAN 
RowRangeOk: BOOLEAN 
RowGridHandles: BOOLEAN 
EditRowTitle: BOOLEAN 
InsertRows: BOOLEAN 
EdBl ankRow: BOOLEAN 
EditTable: BOOLEAN; 
ShoFormulas: BOOLEAN 
Preview: BOOLEAN 
RectRgOk: BOOLEAN 
FieldPad: INTEGER 
scrollincr: ARRAY [rowkind..colkind] OF INTEGER; 
END; 
RECORD 
tmbKind: Sni pKind 
tmbLoP: pixel 
tmbHiP: pixel 
tmbHideP: pixel 
tmbLold: idtype; 
END; 
(cRecord); 
(mmfirst, mmlast, mmnext, mmprior, mmfracti on) 
(mmRi ght, mmLeft, mmUp, mmDown, mmNone, mmRange 
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mmBegOf Row, mmBegOfCol, mmRightPeg, mmLeftPeg); 


| OModeType = (mmRead, mmWrite, mml ONull); 
errRecord = RECORD 
errSpot: interval 
messi: str40 
mess2: str40; 
status: integer; 
END; 
cell Record = RECORD 
align: integer 
font: Tlfntid: 
protected: boolean; 
hiLite: boolean: 
NumRuns: integer; 
dim boolean; 
END; 
BGrowResul t = (BSame, BGrew, BWent, nxtBWent); 
Scroll Type = (incrScroll, pageScroll, j mpScroll) 
Scroll Dir = (Scroll Bak, Scroll Fwd); 
TMstate = RECORD 
marqsaved: bool ean; 
rg: range; 
isSel: boolean; 
isOn: bool ean; 
isBorder: boolean; 
END; 
VAR 
{$l FC TEDEBUG} 
traceFMGR: BOOLEAN 
{$ENDC } 
dfltNbrhood: Rect; 
null Nbrhood: Rect; 
Thi Pars: Tabl eRecord 
FolderPnl: Pnilndex; 
Cell Phi: Pnil ndex; 
Thl Phi: Pnilndex; 
WidePnli: Pnilndex; 
Dial ogPnl: Pnilndex; 
ScrapPnl: Pnilndex; 
PROCEDURE Adj Rect(Pni: Pnilndex; VAR r: rect); 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
{$l FC TEDE 


PROCEDURE 
PROCEDURE 


Apple Lisa 


Adj ToPni(Pni: Pnilndex; P: Point; VAR relPoint: Point); 
allocPni(thePni: Pnilndex); 

ChgPniSize(P: Pniindex; Width, Height: Pixel) 
FreePni(thePni: Pnilndex); 

Get Phi Bits(P: pnilindex; VAR b: bitptr); 


Get Phloffset(Pni: pnilndex; VAR offset: point); 


Get Pni Rect(PNL: Pnilndex; VAR aPni Rect: Rect); 

InitPnis(VAR status: integer); 

MovePnI(P: Pniindex; Offset: point); 

BUG} 

prntcClip; 

PRNTPORT; 
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000194 PROCEDURE prntRect(aRect: rect); 

000195 

000196 PROCEDURE PrntRg(s: str40; rg: range); 

000197 {$ENDC} 

000198 

000199 FUNCTION pti nPni(portptr: grafptr; loc: point; hipnl: pnlindex): Pniindex; 
000200 

000201 FUNCTION rgEq(aRg, bRg: range): bool ean; 

000202 

000203 FUNCTION SectPni(Pni: pnilndex; portptr: grafptr; updrgn: rgnhandle; 
000204 resultrgn: rgnhandle): BOOLEAN 

000205 

000206 PROCEDURE SetPni Port(P: Pnilndex); 

000207 

000208 PROCEDURE setRg(VAR aRg: range; aKind: rgKind; alLoRow, aLoCol, aHi Row 
000209 aHiCol: idType); 

000210 

000211 PROCEDURE SetUpPnI(P: Pnilndex; portptr: grafptr; width, Height: pixel 
000212 loc: point); 

000213 

000214 KAA KKKKKKK KKK KKK KKK ARK KK KKK KKK RK ARK KKK KK KK KKK KARR KAR KK KKK KKK KKK KAR KARR KKKKKKKKKKE 
000215 * 

000216 * THAT'S ALL FOLKS .. 

000217 * 


000218 KEK KKK KKK KK RK KKK KKK KR KKK KKK KAKA K RRR KEK KR KK ARK ERK KKK KKK KR KKK KK KKK KR KR KK ARK KKK KKK 


000219 


End of File -- Lines: 219 Characters: 6969 
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FILE: "LISA LIB 3 TM. TEXT" 


000001 KEK KKK KARA KR KK KKK KKK RK KK KK KKK KR KR KKK RK KR KK ARK KR KKK KKK KER KKK KK KKK KARR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : TM 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG GGG IGG IGG GRRE RAKES 
000006 

000007 USES {$U+} TM 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES {$U libsm/UnitStd } UnitStd 
000015 {$U libsm/ UnitHz } UnitHz, 

000016 {$U libqd/Storage } Storage 

000017 {$U libqd/ QuickDraw } QuickDraw, 

000018 {$U |i bf m/ Font Mgr } Font Mgr 

000019 {$U libdb/dbenv } dbenv, 

000020 {$U libfe/FEdec } FEdec 

000021 {$U libfe/fld } fieldedit, 

000022 {$U libte/teenv } teenv 

000023 {$U libsb/WMLstd } WMLstd 

000024 {$U libsb/ WMisb } WMsb; 

000025 {$ifc teProduction } 

000026 {$SetC tmdebug := False } 

000027 {$elsec } 

000028 {$SetC tmdebug := True } 

000029 {$endc } 

000030 {$SetC TMSDebug := tmDebug } 

000031 

000032 CONST 

000033 {$1FC NOT tmdebug} 

000034 traceSMgr = False 

000035 tracet mgr = false 

000036 traceXt mgr = false 

000037 fwriteln = false; 

000038 {$ENDC } 

000039 ascCR = 13; 

000040 maxString = 130; 

000041 splitDh = dhSkewer 

000042 splitDv = dvSkewer 

000043 maxrun = 5; 

000044 

000045 TYPE 

000046 cellSelType = (selectCell, selectContents, PutCaretAtEnd) 
000047 {$l FC tmdebug} 

000048 

000049 VAR 

000050 traceSMgr, traceTMgr, traceXTMgr, fwriteln: boolean; 
000051 {$ENDC } 

000052 

000053 PROCEDURE ChgRgBorders(newRg: range; shoMarquee: bool ean); 
000054 

000055 PROCEDURE DumpSel 

000056 

000057 PROCEDURE EndRgBorders; 

000058 

000059 PROCEDURE FindTbl Pt(hv: point; VAR PrtOfTbl: tbl Part; VAR rg: range 
000060 VAR virtRect, screenRect: rect); 
000061 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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PROCEDURE getCR(VAR rg: range); 
PROCEDURE getEditCell(VAR theRow: idType; VAR theCol: idType); 
FUNCTION grayOfBand(aKind: snipKind; aP: pixel): fract; 


PROCEDURE growBand(aKind: snipKind; aP: pixel; VAR newP: pixel 
VAR result: BGrowResult); 


PROCEDURE LDt mgr; 

PROCEDURE LDt mLoFregq 

PROCEDURE NewRgBorders(newRg: range; useMarquee: boolean); 
PROCEDURE NewRgl mg(rg: range); 

FUNCTION PtI n1CRg(hv: point; targRg: range): boolean; 


PROCEDURE ReBldTbl(initRg: range); 


PROCEDURE ScrBand(aKind: snipKind; aP: pixel; scrScale: Scroll Type 
scrDir: Scroll Dir; scrFract: fract; VAR didMove 


PROCEDURE setCR(rg: range); 
PROCEDURE shoNewRg(oldRg: range; newRg: range; just: rgjust); 
PROCEDURE ShoNewWid(aKind: snipKind; loSnip, hiSnip: idType); 


PROCEDURE ShoTbl(shoRgnH: rgnHandle); 


FUNCTION snipAllInBand(aKind: snipKind; aP: pixel; snipld: idType) 
PROCEDURE SplitBand(aKind: snipKind; VAR atP: pixel; VAR didSplit: 


PROCEDURE tmCurVwPt( VAR vwPt: point); 
PROCEDURE tmCurVwSet(vwPt: point); 
PROCEDURE tmFAct(fActivate: boolean); 
PROCEDURE tml nit 

PROCEDURE tmLoadBands 

PROCEDURE tmLoadNext Band( aTmBand: tmBand); 
PROCEDURE tmLoadState(atmstate: tmstate); 


PROCEDURE tmNewPars; 


PROCEDURE tmNewSni ps(aKind: snipKind; priorSnip: idType; scrollit: 


PROCEDURE tmNextBandRg(VAR bandsnip: snipKind; VAR bandlold, 
bandhild: idType); 


PROCEDURE tmReDoVi ews 

PROCEDURE tmReSi ze; 

PROCEDURE tmSaveBands 

PROCEDURE tmSaveNext Band( VAR aTmBand: tmBand); 


PROCEDURE tmsavestate(VAR atmstate: tmstate); 
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bool ean); 


bool ean: 


bool ean); 


bool ean); 
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000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
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PROCEDURE tmSetRgFB(cRg: range; useMarquee: boolean); 

PROCEDURE tmShoBreaks 

PROCEDURE t mShoNewTbl 

PROCEDURE TurnOff Marquee 

PROCEDURE TurnOnMar quee 

FUNCTION underEdit(aRow, aCol: idType): boolean; 

PROCEDURE visRgOfView(aPt: point; VAR aRg: range); 

PROCEDURE InitProcinfo(Celllnfo: ProcPtr; Cell Run: ProcPtr 
Cell Value: ProcPtr; FoldedFormula: ProcPtr 
Get Snipld: ProcPtr; mmBreakSnip: ProcPtr; 
mmMapSnip: ProcPtr; SetSnipWdth: ProcPtr 
SnipLT: ProcPtr; SnipWidth: ProcPtr 
FatalError: ProcPtr); 

PROCEDURE boldflds(VAR status: integer); 

FUNCTION Cell Changed: Bool ean; 

PROCEDURE ChangeCel | Font; 

PROCEDURE ClearSel(VAR status: integer); 

PROCEDURE CopySel(VAR status: integer); 

PROCEDURE CutSel(VAR status: integer); 

PROCEDURE DoSel Act(Activate: boolean); 

PROCEDURE DoSel CR(aRg: Range; VAR timeout: INTEGER; hilite: cellseltype) 

PROCEDURE DoTbISel(P: point; VAR Nbh: Rect; VAR Timeout: INTEGER); 

PROCEDURE DoWavSel(P: Point; VAR Nbh: Rect; VAR Timeout: Integer); 

PROCEDURE EndCR 

PROCEDURE EnterSelection(VAR Status: Integer); 

PROCEDURE EraseWav; 

PROCEDURE ExitSel 

PROCEDURE ExtendSel(P: point; VAR nbh: Rect; VAR delta: INTEGER) 

PROCEDURE GetSel Kind( VAR theSel Kind: selKind); 


PROCEDURE I nitSel Mgr(wavActFlg: boolean; maxLenWav: integer 
growdata: integer; growrun: integer); 


PROCEDURE InKey(ch: char; shiftflag: boolean; cmdflag: Boolean; 
resetrun: boolean; VAR Timeout: INTEGER 
VAR status: INTEGER); 

PROCEDURE LDsmgr; 

PROCEDURE MovePointer(P: Point; VAR pRg: range; VAR nbh: rect); 


PROCEDURE MseUp(P: Point; VAR delta: INTEGER); 
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000194 

000195 PROCEDURE NewNbh(P: point; VAR nbh: Rect; VAR delta: INTEGER); 
000196 

000197 PROCEDURE NewNbhWav(P: Point; VAR nbh: Rect; VAR delta: Integer) 
000198 

000199 PROCEDURE NewTi mOut( VAR delta: INTEGER) 

000200 

000201 PROCEDURE NewWSel(P: Point; Pni: Pnilndex; VAR Nbh: Rect; 
000202 VAR timeout: integer); 

000203 

000204 PROCEDURE Null CR; 

000205 

000206 PROCEDURE Nul| Sel 

000207 

000208 PROCEDURE PackSMGR(hndsusdata: hnddata; offset: integer; curlen: integer 
000209 VAR leninstalled: integer; VAR newlen: integer) 
000210 

000211 PROCEDURE PasteSel(pasteruns: boolean; PasteLimit: integer 
000212 VAR status: integer); 

000213 

000214 PROCEDURE PointAtRg(P: Point; VAR pRg: range; VAR nbh: rect); 
000215 

000216 PROCEDURE reDrawSel(showselect: boolean); 

000217 

000218 PROCEDURE Rel nitSel Mgr; 

000219 

000220 PROCEDURE restoreRgFB(VAR timeout: integer); 

000221 

000222 PROCEDURE ReSelCR(VAR timeout: INTEGER; hilite: cellseltype) 
000223 

000224 PROCEDURE restoreflds(VAR curtimeout: integer); 

000225 

000226 PROCEDURE resizeflds 

000227 

000228 PROCEDURE Sel AI I Txt( VAR timeout: INTEGER); 

000229 

000230 PROCEDURE Sel NewCell(P: point; hilite: cellseltype; VAR nbh: Rect; 
000231 VAR timeout: integer) 

000232 

000233 PROCEDURE SetAnchorCell(Rowld, colld: idtype); 

000234 

000235 PROCEDURE SetCellStr(str: str40); 

000236 

000237 PROCEDURE UNDOSEL(VAR status: integer) 

000238 

000239 FUNCTION ValidCoord(rg: range): Boolean; 

000240 

000241 PROCEDURE WhTbl Sel(rg: range; VAR nbh: Rect; VAR timeout: integer) 
000242 

000243 PROCEDURE unboldflds(VAR status: integer); 

000244 

000245 PROCEDURE UnpackSMGR(HndSdata: Hnddata; offset: integer); 
000246 {$1FC tmDebug } 

000247 

000248 PROCEDURE start TMti me: 

000249 

000250 PROCEDURE stopTMti me; 

000251 {$ENDC} 

000252 

000253 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KEK KK KK RK KK KK KKK KKK EK KKK 
000254 * 

000255 * THAT'S ALL FOLKS ... 

000256 * 


000257 KEK KKK KAR KK RRR KKK KKK RK KK KK KR KK RK RRR KKK KR KK ARK RR KKK KK KKK RK KR KK KKK KR KAR KAKA KKK KEK 


000258 
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FILE: "LISA LIB 3 TREES. TEXT" 


000001 KEK KKK KARA KR KK KKK KKK RK KR KK ERK KAKA KKK RK KR KK ARK KR KKK KKK KKK KAKA KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : TREES 

000004 * 

000005 RGGI IGG IGG IGG IGG GGG IGG IGG IGG IGG GRRE RARE 
000006 

000007 USES {$U+} TREES 


000008 

000009 

000010 {$lFC isIntrin} INTRINSIC; {$ENDC} 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$1FC SrcOn0S } 

000016 (*$U OB) /PASDEFS *) PasDefs, 

000017 (*$U OB) /MEMMAN *) MemMan; 

000018 {$ELSEC } 

000019 (*$U OB): PASDEFS *) PasDefs, 

000020 (*$U OB): MEMMAN *) MemMan; 

000021 {$ENDC } 

000022 

000023 {$SETC DEBUGF = 0 } 

000024 

000025 CONST 

000026 

000027 

000028 Nul | Node = - 32768: 

000029 

000030 TYPE 

000031 NRRowPtr = “NRRow 

000032 NRRow = ARRAY [ - 128..127] OF NameString 
000033 NRHandle = “NameArr 

000034 NameArr = ARRAY [ - 128..127] OF NRRowPtr 
000035 CompResult = (ToLeft, Equal, ToRi ght) 

000036 TreeType = (NameT, Futurel, Future2, Future3, Future4) 
000037 Node = integer 

000038 NodeRec = RECORD 

000039 |Link, rLink: Node 

000040 END; 

000041 NodeRow = ARRAY [ - 128..127] OF NodeRec 
000042 NodeRowPtr = “NodeRow 

000043 NodeArr = ARRAY [ - 128..127] OF NodeRowPtr 
000044 NodeArrPtr = “NodeArr 

000045 TreeHandle = “TreeRec 

000046 TreeRec = RECORD 

000047 nodMem MMHandle; 

000048 nodes: NodeArrPtr 

000049 maxNodes, curNodes: longint; 
000050 root: Node: 

000051 compare: ProcPtr 

000052 store: ProcPtr; 

000053 CASE TRType: TreeType OF 
000054 NameT: 

000055 (names: NRHandle); 
000056 Futurel, Future2, Future3, Future4 
000057 (Fut Ptr: longint); 
000058 END; 

000059 

000060 FUNCTION EnterNode(t: TreeHandle; VAR newN: NameString 
000061 PROCEDURE duplicate 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
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(t: TreeHandle; VAR np: NameString; no: 


PROCEDURE newNode 


(t: TreeHandle; VAR x: NameString; VAR newN: 


FUNCTION TLookUp(t: TreeHandle; VAR x: NameString): Node 


PROCEDURE I nOTraverse(t: TreeHandle; PROCEDURE 
Visit(i: Node)); 


FUNCTION InitNameTree(n: longint): TreeHandle; 


FUNCTION GrowTree(t: TreeHandle; n, row: integer): boolean; 


Node); 


Node)): Node; 


KEK KKK KAR KK RK KKK KKK KR KKK KK KKK KR KARR KEK KR KK ARK ERK KKK KKK KE RK KR KK KKK KR KR KKK KK KKK KEK 


x 


: THAT'S ALL FOLKS ... 


x 


KEK KKK KAKA KARR KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK RR KR KKK KK KKK KKK 


File -- Lines: 80 Characters: 2435 
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FILE: "LISA LIB 3 UNITCS, TEXT" 

000001 KAA KKKKKKK KK KKK KKK KAR KKK KKK KKK KK ARK KKK KKK KKK KK AK KA KKK KKK KKK KKK KKK KAR KKKKKKKKKKE 
000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITCS 
000004 * 

000005 KAKA KKKKKKKKK KKK KKK KARR KKK KKK KKK KK ARK KKK KKK KKK KK ARK KAKRKK KKK KKK KKK KARR KAR KK KKKKKKK KE 
000006 

000007 USES {$U+} UNI TCS; 

000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/ UnitStd } Unit Std, 
000016 {$U libsm/ UnitHz } UnitHz, 
000017 {$U libos/SysCall } SysCall, 
000018 {$U libqd/ Storage } Storage, 
000019 {$U libqd/QuickDraw } QuickDraw, 
000020 {$U |i bf m/ Font Mgr } Font Mgr, 
000021 {$U |i bpm/ PmDec! } PmDecl, 
000022 {$U libpr/PrStdinfo } PrStdinfo, 
000023 {$U libsu/ Unit Fmt } Unit Fmt; 
000024 

000025 CONST 

000026 {$1 FC NOT fDbgOk} 

000027 fTstCs = FALSE; {$ENDC} 
000028 cl pdDft = 4) 

000029 icsLst = 10; 

000030 oint Nil = 0; 

000031 orecNil = MAXINT; 

000032 | pMax = 2000000000; 

000033 iprocSeqLpd = 0; 

000034 iprocFindLpFixed = 1; 

000035 iprocHilight = 2; 

000036 i procCrd = 3; 

000037 iprocFreelcs = 4; 

000038 iprocFSelLpBounds = 5; 

000039 i procPxHcs = 6; 

000040 iprocLstCs = 6; 

000041 iimgpScrn = 0; 

000042 i i mgpQume = 1; 

000043 iimgpClto = 2; 

000044 ii mgpLst = 2; 

000045 

000046 TYPE 

000047 TLp = TL; 

000048 TArgl p = ARRAY [0..0] OF TLp; 
000049 TRgl p = “TArgl p; 

000050 TInt = RECORD 

000051 oi ntNxt: TC; 
000052 ointPrv: TC: 
000053 ointParent: TC; 
000054 [pFst: TLp; 
000055 IpLim TLp; 
000056 ics: TB; 
000057 fValid: TF; 
000058 END; 

000059 TPi nt = “Tint; 

000060 TArgi nt = ARRAY [0..0] OF TInt; 
000061 TRgi nt = “TArgint; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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THpi c 
TPpic 
TFi gd 


TTyset 


TAI pd 


TLpd 
TTycs 


TCspd 


TTyxy 


TCs 


TPcs 
THcs 
TArghcs 
TRghcs 
TPglp 


TAmpicsprcs 
TMpi csprcs 


VAR 
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Pi cHandle: 
PicPtr; 
RECORD 


: TPpic: 


TF; 
TF; 


il pd: TB; 
fParSt: TF; 
lp: TLp; 
IpLim TLp; 

I pSon: TLp; 
icsSon: TB; 
tyset: TTyset; 
rce: TRce; 
[pFstPar: TLp; 
| pLimPar: TLp; 
rpe: TRpe; 
arce: TArce; 
arpe: TArpe; 
figd: TFigd; 

END; 

“TAI pd; 

(tycsNil, tycsUs, tycsEd, tycsFf, tycsUf, tycsFm, tycsPg 
tycsRuler, tycslst, tycsFld, tycsMtrx, tycsFig) 

RECORD 

argproc: ARRAY [0..iprocLstCs] OF TProc 
argimgp: ARRAY [0..iimgpLst] OF TProc 

END; 

(tyxySern, tyxylP, tyxyPgFract, tyxyMica, tyxyDot Mx, 
tyxyHi Dot Mx, tyxyLDotMx, tyxyLHiDotMx, tyxyNewl, 
tyxyNew2, tyxyNew3, tyxyNew4, tyxyNew5, tyxyNew6 
tyxyNew7, tyxyNew8, tyxyNil) 

RECORD 

cspd: TCspd; 
hz: THz; 
tycs: TTycs; 
tyxy: TTyxy; 
ointFst: TC: 
orecConFst: 
cRef: TC; 
prprf: TPrRec; 

END; 

“TCs; 

ATPcs; 

ARRAY [0..0] OF THcs 

“TArghcs; 

RECORD 

icsHdr: TB: 
icsFtr: TB: 
yTopHdr: TY; 
dyHdr: TY; 
dyHt Body: TY; 
dyBotBody: TY; 
tyxy: TTyxy; 

END; 

ARRAY [0..0] OF TL; 

“TAmpi csprcs 


TC; 
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000128 {$1 FC fDbgOk} 

000129 fTstCs: TF; {$ENDC} 

000130 tysetRpe: TTyset; 

000131 tysetBnds: TTyset; 

000132 rghcs: TRghcs; 

000133 mpicsprcs: TMpicsprcs 

000134 icsMac: TC; 

000135 argal pd: ARRAY [0..cl pdDft] OF TAI pd 

000136 argl pd: ARRAY [0..clpdDft] OF TLpd 

000137 I pdStd: TLpd; 

000138 tyset Std: TTyset; 

000139 I} dint: TLId; 

000140 tyxyLst: TTyxy; 

000141 tyxyCs: TTyxy; 

000142 pgl pStd: TPgl p; 

000143 fNolnvalidate: TF: 

000144 

000145 FUNCTION LpMinP(I pi: TLp; Ip2: Thp): TLp; 

000146 

000147 FUNCTION LpMaxP(I pi: TLp; Ip2: Thp): TLp; 

000148 

000149 PROCEDURE PxRgcs; 

000150 

000151 PROCEDURE PxAchad(VAR achad: TAchad); 

000152 

000153 PROCEDURE PxCs(ics: TB); 

000154 

000155 PROCEDURE Freel nt(ics: TB; oint: TC); 

000156 

000157 FUNCTION OintMark(oint: TC; ics: TB; IpFst: TLp; IpLim TLp; f Valid: TF; 
000158 ointParent: TC): TC 

000159 

000160 FUNCTION IcsCreate(tycs: TTycs; cbCs: TC; hz: THz): TB 
000161 

000162 PROCEDURE Freelcs(ics: TB); 

000163 

000164 PROCEDURE PxLpd(Il pd: TLpd; VAR achad: TAchad); 

000165 

000166 PROCEDURE SetLpd(I pd: Thpd; ics: TB; Ip: TLp; tyset: TTyset; 
000167 VAR achad: TAchad) 

000168 

000169 PROCEDURE SeqLpd(!I pd: TLpd; VAR achad: TAchad); 

000170 

000171 FUNCTION FParStart(ics: TB; Ip: TLp): TF; 

000172 

000173 PROCEDURE FindLpFixed(ics: TB; Ip: ThLp; VAR I pFixed: TLp); 
000174 

000175 PROCEDURE FindLpFstPar(ics: TB; |p: TLp; VAR I pFixed: TLp) 
000176 

000177 PROCEDURE InitCs(hz: THz); 

000178 

000179 PROCEDURE Pxint(oint: TC); 

000180 

000181 PROCEDURE AdjustLps(ics: TB; IpFstIinv: TLp; IplLimlnv: TLp; dl pAdjust: TLp); 
000182 

000183 FUNCTION FSelLpBounds(Ip: Thp; ics: TB; VAR IpFstSel, IpLimSel, | pFstAtom 
000184 |pLimAtom: TLp): TF; 

000185 

000186 FUNCTION TrueStdSel LpBounds(Ip: TLp; ics: TB; VAR IpFstSel, | pLi mSel 
000187 |pFstAtom, IpLimAtom TLp): TF; 
000188 

000189 FUNCTION FTextlcs(ics: TB): TF; 

000190 

000191 PROCEDURE PurgelcsPrcs; 

000192 


000193 KEK KKK KAR KKK KKK KKK KR KKK KK ERK KARR KKK ERK RK KARA KR KKK KKK KKK KKK KK KKK ERK KKK KKK KKK KKK 
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000194 
000195 
000196 
000197 
000198 


End of 
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x 


‘ THAT'S ALL FOLKS ... 


x 


KEK KKK KKK KK RK KKK KKK KR KKK KK KKK KARR KKK KK KR KK ARK RR KKK KR KKK RK KR KK KKK KR KR KKK KKK KKK EK 


File -- Lines: 198 Characters: 5836 


Apple Lisa Desktop Library 3.0 Pascal 


Interfaces 


163 of 196 


FILE: 


000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 


Apple Lis 


a Computer Technical Information 


"LISA LIB 3 UNITFF. TEXT" 


KKAKKKKKKKKKKKKAKKKKKKKKE 
x 
* APPLE LISA DESKTOP LIBR 
x 
KKAKKKKKKKKKKKKAKKKKKKKKE 


USES {$U+} UNI TFF; 


INTRINSIC SHARED; 
INTERFACE 


li bsm/ UnitStd 
li bsm/ Unit Hz 
libos/SysCall 
libsu/UnitFile 
li bqd/ QuickDraw 
|i bf m/ Font Mgr 
li bqd/ Storage 

li bsu/ Unit Fmt 
|i bpm/ PmDec! 
libpr/PrStdinfo 
li bsu/ UnitCs 


CONST 
{$1 FC NOT f DbgOk} 
fTstFf = FAL 
pwr f - 1 
pwNot Ff 0; 
cbPgf f 12 
dxMi nTab 6; 
ffVersion 
ffVerPrPrf 
ffVerNewRgfbcs = 
ffVerMsgFst = 3; 
ffVerCommaDeci mal = 
ffVerPrRec = 5; 


TYPE 
TTyRIU 
TFf Leader 


(ty 
REC 


END 


VAR 
cspdFf: 
{$I FC fDbgOk} 
fTIstFf: 
{$ENDC} 


TCspd 


TF: 
PROCEDURE PxHcsff(hcs: 


Apple Lisa Desktop 


KKK KAKA KKK KKK KKK ARK KR KKK KKK RK RK KR KK KKK KAKA KKK KK KKK KEK 


ARY INTERFACES (Version 3.0) : UNITFF 


KKK KARR KKK KK KKK KARA KR KKK KK KKK RK KK KK KKK KKK KKK KKK KKK KEK 


} UnitStd, 

} UnitHz, 

} SysCall, 

} Unit File, 
} QuickDraw 
} Font Mgr, 

} Storage, 

} Unit Fmt 

} PmDecl, 

} PrStdi nfo, 
} UnitCs: 


SE; 
3142: 


{$ENDC} 


4 


rluEnglish, tyrluMetric, tyrluPica, tyrluElite); 
ORD 

password: TW; 
version: TC; 
|pHdrFst: TLp; 
[pFtrFst: TLp; 

| pTxtFst: TLp; 
dummyLpLimFf: TB; 
tyrlu: TTyRIU; 
pglp: TPglp; 
prprf: TPrRec; 


THcs); 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 


End of 


Apple Lisa Computer Technical Information 


PROCEDURE PxLeader( VAR leader: TFfleader); 
PROCEDURE SeqLpdFf(I pd: TLpd; VAR achad: TAChad); 


FUNCTION IcsFfCreate(ifil: TC; icsFig: TB; hz: THz 
VAR ffleader: TFfleader): TB 


PROCEDURE FreeFflcs(icsFf: TB); 


PROCEDURE WritelcsFf(icsDoc: TB; pglp: TPglp; tyrluFf: TTyRIU 
ifil Fig: TB; hzDoc: THz); 


PROCEDURE I nit FF; 

FUNCTION LpMacFf(icsFf: TB): TLp; 

PROCEDURE SetLeaderOflcsFfFroml Fil(ics: TB; ifil: TC; hz: THz); 
FUNCTION [fil OfFf(icsFf: TB): TB; 


PROCEDURE GetLeaderOflcsFf(icsFf: TB; VAR ffleader: TFfLleader) 


ifil: 


TB: 


KEK KKK KAR KK RK KKK KKK KR KKK KK ERK KR KR KKK KK KR KK ARK ERK KKK KKK ER KKK KK KKK KKK KKK KKK KKK KEK 


x 


THAT'S ALL FOLKS ... 
k 


KEK KKK KAR KKK KR KKK KKK RK KK KK KR KK RK RRR KEK KR KK ARK KR KKK KARR ER KK RRR KKK KR KR KKK KK KKK KEK 


File -- Lines: 90 Characters: 2363 
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FILE: "LISA LIB 3 UNITFI GA, TEXT" 
000001 KKK KKKKKK KK KKK KKK KAR KKK KKK KK KKK ARK KKK KKK KKK KAKA KKK KKK KKK KKK KKK KAR KK KKKKKKKKE 
000002 * 
000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITFIGA 
000004 * 
000005 KKK KKKKKK KK KKK KARR KARR KKK KKK KK KKK AK KK KKK KKK KKK KKK KAR KK KKK KKK KKK KAR KAR KKKKKKKKKKE 
000006 
000007 USES {$U+} UNI TFI GA; 
000008 
000009 
000010 INTRINSIC SHARED; 
000011 
000012 INTERFACE 
000013 
000014 USES 
000015 {$U libsm/ UnitStd } UnitStd 
000016 {$U libsm/ UnitHz } UnitHz, 
000017 {$U libos/SysCall } SysCall 
000018 {$U libsu/UnitFile  } UnitFile, 
000019 {$U libqd/QuickDraw } QuickDraw 
000020 {$U |i bf m/ Font Mgr } Font Mgr 
000021 {$U libqd/ Storage } Storage 
000022 {$U libsu/ Unit Fmt } Uni t Fmt 
000023 {$U |i bpm/ PmDec! } PmDecl 
000024 {$U libpr/PrStdinfo } PrStdinfo 
000025 {$U libsu/Unitcs } Units; 
000026 
000027 CONST 
000028 {$l FC NOT fDbgOk} 
000029 fTstFig = FALSE; {$ENDC} 
000030 tyfilFig = + 13143; 
000031 verFigCur = 1; 
000032 cErrFilNotValid = 5100 
000033 
000034 TYPE 
000035 TCsfig = RECORD 
000036 cs: TCs; 
000037 ifil: TB; 
000038 END; 
000039 TPcsfig = “TCsfig; 
000040 THcsfig = “TPcsfig; 
000041 
000042 VAR 
000043 cspdFig: TCspd; 
000044 {$l FC fDbgOk} 
000045 f Tst Fig: TF; 
000046 {$ENDC} 
000047 
000048 PROCEDURE PxHcsfig(hcsfig: THcsfig) 
000049 
000050 FUNCTION IcsFigCreate(VAR cError: TC; path: Pathname; setaccess: TSetaccess 
000051 hz: THz; password: E_ name): TB 
000052 
000053 PROCEDURE FreeFiglcs(ics: TB); 
000054 
000055 PROCEDURE FigFindLpFixed(ics: TB; |p: TLp; VAR I pFixed: TLp); 
000056 
000057 FUNCTION LpFigAdd(ics: TB; hpic: THpic): TLp; 
000058 
000059 PROCEDURE SeqLpdFig(I pd: TLpd; VAR achad: TAChad) 
000060 
000061 FUNCTION IfilOfFig(icsFig: TB): TB 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 


End of 


Apple Lisa Desktop Library 3.0 Pascal . 
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PROCEDURE I nitFig; 


KEK KKK KARA KR K KKK KKK KR KKK KK KR KK AKA KKK KK KR KKK RK RR KKK KKK KER KK RRR KKK KKK KKK KKK KKK KEK 


x 


‘ THAT'S ALL FOLKS ... 


x 


KEK KKK KKK KK RK K KKK KKK RK KK KK KKK KR KR KKK RK KR KK ARK KR KKK KK KKK RK KK KK KKK KKK RK KAKA KKK KKK 


File -- Lines: 70 Characters: 1729 
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FILE: "LISA LIB 3 UNITFILE. TEXT" 


000001 KEK KKK KKK KK RK K KKK KKK RK KK KK KKK KAKA KKK ERK RK KAR KKK KKK KKK KKK K KR KK KKK KKK KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITFILE 

000004 * 

000005 RR GGG GGG IGG IGG GGG GGG IGG IGG GG RG RRR RAKES 
000006 

000007 USES {$U+} UNITFILE; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/ UnitStd} UnitStd, 
000016 {$U libsm/ UnitHz} UnitHz, 
000017 {$U libos/SysCall} SysCall, 
000018 {$U libos/PSysCall} PSysCall; 
000019 

000020 CONST 

000021 ifil Nil =. 1 

000022 ifilRangeWarn = - 4056; 

000023 noMFil eErr = 4057; 

000024 ifilNotOpenWarn = - 4058; 
000025 i vodNi | = MAXI NT; 

000026 i vodArgvod = 0; 

000027 ivodFst S31" 

000028 chVofilOnFile = 128; 

000029 cvodMore = 48: 

000030 cbBI kOfVofil = 512; 

000031 {$1 FC NOT f DbgOk} 

000032 fTstFile = FALSE; 

000033 {$ENDC} 

000034 

000035 TYPE 

000036 String255 = STRING[ 255]; 
000037 TVod = RECORD 

000038 ib: TL; 
000039 cb: TL: 
000040 END; 

000041 TVof il = RECORD 

000042 tyfil: TW 
000043 ver: TC: 
000044 ivodMac: TC; 
000045 vodArgvod: TVod; 
000046 END; 

000047 TArgvod = ARRAY [1..1] OF TVod; 
000048 TRgvod = “TArgvod; 
000049 TSetaccess = MSet; 

000050 

000051 VAR 

000052 Scrap_RefNum: TL; 

000053 {$l FC fDbgOk} 

000054 fTstFile: TF; 

000055 {$ENDC} 

000056 

000057 PROCEDURE InitFiles(hz: THz); 
000058 

000059 FUNCTION IfilOpen(VAR cError: TC; pathIn: String255; cbBIlk: TC; 
000060 setaccess: TSetaccess; hzWrite: THz; 
000061 password: E name): TB; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 


End of 
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PROCEDURE Closelfil(VAR cError: TC; ifil: TB); 
FUNCTION FilCbOfN(n: TN): TC; 

FUNCTION Fil FSwapInN(hz: THz; nm: TN): TF; 
PROCEDURE Fil SwapOutN(hz: THz; n: TN) 

FUNCTION NFromfillb(ifil: TB; ib: TL): TN; 
FUNCTION CBI kOfIfil(ifil: TC): TC; 


PROCEDURE RenameFile(VAR cError: TC; pathin: String255; enameln: TSp; 


password: E name); 


PROCEDURE Kill File(VAR cError: TC; pathIn: String255; password: E_name) 


FUNCTION FMonitorFile(path: String255): TF; 


PROCEDURE PathOflfil(ifil: TC; VAR path: String255; VAR password: e name) 


PROCEDURE Seti bLimOfIfil(ifil: TB; ibLim TL); 


FUNCTION RefnumOflfil(ifil: TB): TC; 


PROCEDURE Cleanlfil(VAR cError: TC; hz: THz; ifil: TB; flgnoreDirty: TF) 


FUNCTION CErrOflfil(ifil: TB): TC; 


PROCEDURE Get Vofil(ifil: TB; VAR vofil: TVofil); 


FUNCTION IvodAdd(ifil: TB; hSrc: TH; cb: TL) 


TC; 


PROCEDURE SetTyfilVer(ifil: TB; tyfil: TW ver: TC); 


KEK KKK KAR KKK KKK KKK KR KKK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK RK KAKA KKK KEK 


x 


: THAT'S ALL FOLKS ... 


x 


KEK KKK KKK KK RRR KKK KKK RK KK KK KR KK RK RRR KEK KR KK ARK KR KKK KKK KER KKK KK KKK KR KKK KAKA KKK KEK 


File -- Lines: 103 Characters: 2579 
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FILE: "LISA LIB 3 UNITFMT. TEXT" 


000001 KEK KKK KKK KK RK K KKK KKK RK KK KK KR KK RK KKK KKK KR KK ARK KR KKK KKK KKK KKK KK KKK KR KR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNI TFMT 

000004 * 

000005 RR GGG IGG IGG IGG GGG GGG GGG GGG GGG RRR RAKES 
000006 

000007 USES {$U+} UNI TFMT; 


000008 

000009 

000010 INTRINSIC SHARED 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/ UnitStd} UnitStd 
000016 {$U libsm/ UnitHz} UnitHz, 
000017 {$U libqd/ QuickDraw} QuickDraw, 
000018 {$U libfm/ FontMgr} Font Mgr; 
000019 {$SETC doTraceSU := TRUE} 
000020 {$SetC fTraceSU := doTraceSU AND f TRACE} 
000021 

000022 CONST 

000023 {$1 FC NOT f DbgOk} 

000024 f Tst Fmt = FALSE; {$ENDC} 
000025 if| dQuad = 0 

000026 ifl dXLFst = 1; 

000027 i fl dXLBody = 2: 

000028 if | dXRt = 3; 

000029 ifl dXtb = 4; 

000030 if| dTbQuad = 53 

000031 ifldRgtbd = 6; 

000032 ifl dDxtb = 7} 

000033 ifldBold = 8 

000034 iflditalic = 9: 

000035 if|dUnderline = 10; 
000036 ifl dFont = 11; 
000037 if|dVan = 12; 
000038 ifldSuperscript = 13; 
000039 ifldYLine = 14; 
000040 ifl dYLd = 15; 
000041 if| dMovTb = 16; 
000042 ifldClrTb = 17; 
000043 ifl dFilTb = 18: 
000044 ifldKeep = 19; 
000045 ifldLpFig = 20; 
000046 ifldlcsFig = 21; 
000047 ifldTyfam = 22: 
000048 ifldFsp = 23; 
000049 ifldLst = 23; 
000050 f opcEnd =- 1; 
000051 i bRgtbd = 14; 
000052 cbRceVan = 2; 

000053 ifntl2Tile = 0 

000054 ifntpl0Tile = 1; 

000055 ifntpl2Tile = 2" 

000056 ifnt18Tile = 3; 

000057 ifnt24Tile = 4 

000058 ifnt12Cent = 5; 

000059 ifnt18Cent = 6; 

000060 ifnt24Cent = 7; 

000061 ifntFBold = 8 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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ifntpl0Cent 
ifntpl2Cent 
ifntelite 
ifntcourier 
ifntp20Tile 
ifntpl5Tile 
ifntp20Cent 
ifntpl5Cent 
ifntLst 

i bXTbd 

i bChTbd 

i bRgf be 
cbHfccl nit 
itbdLst 
icsNil 

| pNil 
tyfamModern 
tyfamClassic 
tyfamlst 
tyfamlFil| 
tyfam2Fill 
fsp8P20 
fsp8P15 
fsp12P12 
fsp12P10 
fspl2 

fsp14 

fspl8 

fsp24 
fspLst 


TYPE 
TFce 


TPfcc 
THf cc 
TQuad 
TTyfill 
TTbdOld 


TTbd 


TArgtbd 
TRgt bd 
TArcpe 


TRcpe 
TArce 


9 

10; 
11; 
12; 
13; 
14; 
15; 
16; 
16; 
0; 


sn OO OU PWN OWN Fe FE oO ' 


RECORD 

cref: TB; 
argfbc: TArgb; 
END; 
ATFcc; 
ATPf Cc; 
(quadL, quadC, quadR, quad} ) 
(tyfill Nil, tyfillDots, tyfillHyph, tyfill UL); 
PACKED RECORD 

x: TX: 

fill4: 0..15:; 

quad: TQuad; 

tyfill: TTyfill; 

chLdr: TCh; 


END; 
PACKED RECORD 
x: TX: 
fill3: 0..7; 
f Deci mal Comma: TF: 
quad: TQuad; 
tyfill: TTyfill; 
chLdr: TCh; 
END; 
ARRAY [0..0] OF TThd; 
ATAr gt bd; 
PACKED RECORD 
cb: TB: 
bl: TB; 
END; 
ATArcpe; 
PACKED RECORD 
cb: 0..255: 
fVan: TF: 
fBold: TF; 
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000128 fltalic: TF; 

000129 fUnderline: TF; 

000130 fill4: 0..15; 

000131 chSuperscript: TB; 

000132 ifnt: TB; 

000133 fKeep: TF; 

000134 fOutLine: TF: 

000135 fShadow: TF; 

000136 fFillB: TF; 

000137 fFillC: TF; 

000138 fFillD: TF; 

000139 fFillE: TF; 

000140 fFillF: TF; 

000141 icsFig: TB; 

000142 I pFig: TC; 

000143 END; 

000144 TRce = “TArce; 

000145 TArpe = PACKED RECORD 

000146 ch: 0..255: 

000147 sy: TB; 

000148 XLftFst: TX: 

000149 XLftBody: TX; 

000150 xRt: TX; 

000151 yLd: TY; 

000152 filll: TB; 

000153 ylLine: 0..63; 

000154 quad: TQuad; 

000155 itbLim TW; 

000156 argtbd: ARRAY [0..itbdLst] OF TTbd; 
000157 END; 

000158 TRpe = “TArpe; 

000159 TTyfam = 0..3; 

000160 TFsp = TB; 

000161 TFstyle = RECORD 

000162 tyfam:= TTyfam; 

000163 fsp: TFsp; 

000164 END; 

000165 TTydst = (tydstRce, tydstRpe, tydstTbd, tydstNil); 
000166 

000167 VAR 

000168 {$1 FC fDbgOk} 

000169 f Tst Fmt: TF: {$ENDC} 

000170 argfam: ARRAY [0..ifntLst] OF TFam; 

000171 tbhdNil: TTbd; 

000172 arceStd: TArce: 

000173 arpeStd: TAr pe; 

000174 ampifntfstyle: ARRAY [0..ifntLst] OF TFstyle; 

000175 

000176 PROCEDURE PxArce(VAR arce: TArce); 

000177 

000178 PROCEDURE PxArpe(VAR arpe: TArpe); 

000179 

000180 FUNCTION CfbcApplylfld(ifld: TC; wsval: TW pval: TPc; rpe: TRpe; 
000181 rce: TRce): TC; 

000182 

000183 FUNCTION IfbcLstAppl yRgfbc(rgfbc: TRgb; rpe: TRpe; rce: TRce): TC; 
000184 

000185 PROCEDURE AddRgfbc(VAR hfcc: THfcc; hfccSre: THfcc; hz: THz); 
000186 

000187 PROCEDURE AddFop(VAR hfcc: THfcc; ifld: TB; sval: TW pval: TPc; hz: THz); 
000188 

000189 PROCEDURE GenFopsDiff(hfcc: THfcc; tydst: TTydst; rcpeStd, rcpe: TP; 
000190 hz: THz); 

000191 

000192 PROCEDURE zzGenParFops(hfcc: THfcc; rpe: TRpe; hz: THz); 
000193 
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000194 
000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 


End of 
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FUNCTION ItbFromX(rgtbd: TRgtbd; itbLst: TC; x: 


PROCEDURE | nit Fmt 


PROCEDURE PxRgfbc(rgfbc: TRgb); 


TX): TC; 


KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RK KKK KEK KR KK KKK ERK KK KKK KER KK RRR KKK KR KKK KAKA KKK KKK 


x 


: THAT'S ALL FOLKS ... 


x 


KEK KKK KKK KK RK K KKK KKK RK KK KK ERK KAKA KKK RK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KR KKK KK KKK KEK 


File -- Lines: 205 Characters: 5721 
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FILE: "LISA LIB 3 UNITHZ. TEXT" 


000001 KEK KKK KARA KR KR KKK KKK RK KK KKK RK RK KKK KEK KR KK ARK KR KKK KKK KER KKK KKK KKK RK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITHZ 
000004 * 

000005 RGGI IGG IGG IGG IGG GGG GGG IGOR RGR RAKES 
000006 

000007 USES {$U+} UNI THZ 

000008 

000009 

000010 INTRINSIC SHARED 

000011 

000012 INTERFACE 


000013 {$SETC fhz := FALSE} 

000014 {$SETC fhzP := FALSE} 

000015 

000016 USES 

000017 {$U libsm/ UnitStd} UnitStd 

000018 {$U libos/SysCall} SysCall; 

000019 

000020 CONST 

000021 tybkFree = 0; 

000022 tybkStd = 1; 

000023 t ybkN = 2: 

000024 tybkNrel = 3; 

000025 {$1 FC NOT fhz} 

000026 f Tst Hz = FALSE; {$ENDC} 
000027 {$1 FC NOT fhz} 

000028 fTstHzV = FALSE; {$ENDC} 
000029 {$1 FC NOT fhzP 

000030 f TstHzP = FALSE; {$ENDC} 
000031 i pPool Max = 32000; 

000032 cbMi nAsk = 512; 

000033 Max BI kSize = 32767; 

000034 

000035 TYPE 

000036 TH = “TP: 

000037 TArgh = ARRAY [0..0] OF TH 
000038 TRgh = “TArgh; 

000039 TTybk = 0..3; 

000040 THz = *TAhz; 

000041 TBp = PACKED RECORD 

000042 fRel PBase: TF: 
000043 CASE TF OF 

000044 FALSE: 

000045 (ip: 0..32000); 
000046 TRUE: 

000047 (iwP: 0..32000); 
000048 END; 

000049 TPpn = “TPn; 

000050 TStn = PACKED RECORD 

000051 tybk: TTybk; 

000052 f Dirty: TF; 

000053 flock: TF; 

000054 fill: 0..15: 

000055 ubt: TB; 

000056 END; 

000057 TNob = RECORD 

000058 n: TN; 

000059 stn: TStn; 

000060 bp: TBp; 

000061 data: TW 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical 


Information 


END; 
TPnob = “TNob; 
TPpnob = “TPnob; 
TArgpnob = ARRAY [0..0] OF TPnob; 
TRgpnob = “TArgpnob; 
THrgpnob = *TRgpnob; 
TBk = “TAbk; 
TAbk = RECORD 
CASE TF OF 
FALSE: 
(hdr: PACKED RECORD 
tybk: TTybk; 
cw: 0..16000; 
END; 
CASE TTybk OF 
tybkNrel: 
(dataNrel: TW; 
tybkStd: 
(bp: TBp; 
dataStd: TW 
t ybkN: 
(SpaceForCompactRoutine: Integer; 
nob: TNob); ); 
TRUE: 
(cwFree: TL: 
bkf Nxt: TBk; 
bkf Prv: TBk; ) 
END; 
TArgwBase = ARRAY [0..0] OF TW 
TRgwBase = “TArgwBase; 
TAhz = RECORD 
bkFst: TBk; 
bkLst: TBk; 
bkf Fst: TBk; 
rgwBase: TRgwBase; 
ipPool Mac: TC; 
hFstFree: TH; 
cbFree: TL; 
hrgpnob: THrgpnob; 
mski pnbst: TW; 
ipnCur: TC; 
cpnAvail: TC; 
ubtCur: TB; 
procCbMore: TProc 
procCbOfN: TProc; 
procFSwapl nN: TProc 
procSwapOutN: TProc 
fScramble: TF: 
hScramble: TH; 
fUpScramble: TF; 
f Check: TF; 
cCompact: TC; 
HasConcrete: TF; 
argpPool: ARRAY [0..0] OF TP 
END; 
VAR 
hNil: TH; 
pNil: TP; 
hzNil: THz; 
{$1FC fhz} 
f Tst HzV: TF; {$ENDC} 
{$1 FC fhz} 
fTstHz: TF; {$ENDC} 
{$1 FC fhzP} 
f Tst HzP: TF; {$ENDC} 
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000128 

000129 FUNCTION HAllocate(hz: THz; ch: TC): TH 

000130 

000131 FUNCTION HzInit(pFst: TP; pLim: TP; pBase: TP; ipPool Mac: TC; loglpnlim: TC; 
000132 procCbMore: TProc; procCbOfN: TProc; procFSwapInN: TProc 
000133 procSwapOutN: TProc): THz 

000134 

000135 PROCEDURE PxHz(hz: THz); 

000136 

000137 PROCEDURE ChangeSizeH(hz: THz; h: TH; cbhNew: TC); 
000138 

000139 PROCEDURE ChangeNSize(hz: THz; n: TN; cbNew: TC); 
000140 

000141 PROCEDURE FreeBk(hz: THz; h: TH; tybk: TTybk) 
000142 

000143 PROCEDURE AllocBk(hz: THz; hDst: TH; cb: TC; tybk: TTybk); 
000144 

000145 FUNCTION PMapN( hz: THz; nSrc: TN): TP 

000146 

000147 FUNCTION PCreateNob( hz: THz; nSrc: TN; chData: TC): TP 
000148 

000149 PROCEDURE SetFDirty(hz: THz; n: TN; fDirty: TF); 
000150 

000151 PROCEDURE SetCbFree(hz: THz; cbhFree: TL; fEnlargeHz: TF) 
000152 

000153 FUNCTION ChDataOfH(hz: THz; h: TH): TC 

000154 

000155 FUNCTION PAllocate(hz: THz; ch: TC): TP 

000156 

000157 PROCEDURE FreeH(hz: THz; h: TH) 

000158 

000159 PROCEDURE FreeP(hz: THz; p: TP) 

000160 

000161 PROCEDURE FreeN(hz: THz; n: TN) 

000162 

000163 PROCEDURE ReleaseBkNrel(hz: THz; pFstRelease: TP); 
000164 

000165 FUNCTION PLstFree(hz: THz): TP 

000166 

000167 FUNCTION HzFromH(h: TH): THz; 

000168 

000169 FUNCTION FCheckHzOk( hz: THz; VAR cBkStd: TC): TF; 
000170 

000171 FUNCTION HLockN( hz: THz; n: TN; fNeedH: TF): TH; 
000172 

000173 PROCEDURE UnlockN(hz: THz; n: TN); 

000174 

000175 PROCEDURE LockHandl el nConcrete(h: TH) 

000176 

000177 PROCEDURE Unl ockHandl eFromConcrete(h: TH); 

000178 

000179 PROCEDURE EnlargeHz(hz: THz; cbMore: TL); 

000180 

000181 FUNCTION CbShrinkHz( hz: THz; cbhLess: TL): TL; 
000182 


000183 FUNCTION CbOfHz(hz: THz): TL; 
000184 {$1 FC £05} 


000185 

000186 FUNCTION ChMoreGrowSeg(hz: THz; cbhNeed: TC): TC 
000187 {$ENDC} 

000188 

000189 FUNCTION PnobFromN( hz: THz; n: TN): TPnob; 
000190 

000191 PROCEDURE Scramble(hz: THz); 

000192 


000193 KEK KKK KKK KK RRR KKK KKK RK KKK KER KAKA KKK KEK KR KK KKK KR KKK KKK RRR KKK KK KKK ERK KKK KKK KKK KEK 
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000195 
000196 
000197 
000198 


End of 
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x 


‘ THAT'S ALL FOLKS ... 


x 


KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RK KKK KKK KR KK ARK KKK KKK RRR ER KKK KK KKK KAKA KKK KK KKK KEK 


File -- Lines: 198 Characters: 5673 
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FILE: "LISA LIB 3 UNITS. TEXT" 


000001 KEK KKK KARA KR KR KKK KKK RK KR KR KKK ERK RK KK RK KR KK ARK K EK KR KKK KKK RAR KKK KKK KKR KE 


000002 * 

000003 * APPLE LISA DESKTOP 3.0 LIBRARIES UNIT TABLE 
000004 * 

000005 KAKA KKK KKK KK RRA KKK KAR KKK KKK KKK RK KKK KKK KKK KAR KKK ARK K KAR KKAK ARK KKK KK KKK 
000006 

000007 UnitName Unit# File# Type DataSize 

O00008 fee eeee en chee Gees See eee eee 

000009 PASLIB 1 Intrin 000000 

000010 UNITSTD 2 Intrin 000002 

000011 GRAFUTIL 3 Intrin 000000 

000012 UNITHZ 4 Shared 000024 

000013 STORAGE 5 Intrin 000008 

000014 QUICKDRA 6 Intrin QOQQ0CE 

000015 HW NT 7 Intrin 000000 

000016 FEDEC 8 Intrin 000000 

000017 FONTMGR 9 Shared 000054 

000018 EVENTS 10 Shared 000210 

000019 WINDOWS 11 Shared 0010F2 

000020 FOLDERS 12 Shared 00000A 


000021 MENUS 13 Shared  00009C 
000022 FLDUT 14 Intrin 000000 
000023 WMLSTD 15 Intrin 000018 
000024 WMLCRS 16 Intrin QO03FE 
000025 WMLGROW 17 Intrin Q0000E 
000026 WMLSB 18 Intrin 000038 
000027 INTERNAT 19 Intrin 000000 
000028 FPLIB 20 Intrin 000006 


000029 ALERTMGR 21 
000030 MATHLIB 22 
000031 UNITFF 23 
000032 UNITCS 24 
000033 UNITFILE 25 
000034 UNITFMT 26 
000035 BGENV 27 
000036 MATMGR 28 
000037 PARSER 29 
000038 COMPUTE 30 
000039 STUBS 31 
000040 UUNIVERS 32 
000041 FEGLOBAL 33 
000042 COMGR 34 
000043 USTDTERM 35 
000044 UQPGRAPH 36 
000045 TEEXEC 37 
000046 UQPPRINT 38 
000047 LCFEXEC 39 


Intrin 000300 
Intrin 000016 
Shared 00004A 
Shared 000644 
Shared 000156 
Shared 0001F2 
Intrin 000058 
Intrin 00188E 
Intrin O006FC 
Intrin 000084 
Intrin 000000 
Intrin 000222 
Intrin 000398 
Intrin 00033C 
Intrin 0002CE 
Intrin 000056 
Intrin 000004 
Intrin 000188 
Intrin 0001A6 


000048 TEENV 40 Intrin 00080E 
000049 TM 41 Intrin QOOBCA 
000050 FMGRUTIL 42 Intrin 000000 
000051 PMM 43 Shared 000042 
000052 PMDECL 44 Intrin 000000 


000053 UNITFIGA 45 
000054 SYS1LOCK 46 
000055 UCLASCAL 47 
000056 UTKUNIVE 49 
000057 VOB) ECT 50 


Shared 00002A 
Intrin 000000 
Intrin O0004E 
Intrin 0001CA 
Intrin 000164 


000058 UTEXT 51 Intrin 00027¢ 
000059 UDRAW 52 Intrin 0001B2 
000060 UABC 53 Intrin 0009F2 


PrPrPrrP 
ReooreorewrhrPFrFrErNMeaoewcecouwowcoeodorFrcocpcpopocmnpoerPrRPrRPRrRUFPUFPrP rrr rPFPrP PrP PrP PP PPP PP PS Ww 


000061 UDI ALOG 54 Intrin 000564 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 


End of 
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6 Intrin 
12) sIntrin 
12. Shared 
12) sIntrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Shared 
Shared 
Intrin 
Shared 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Intrin 
Shared 
Intrin 


WWWNPP PPP PPP PPN © ONY SYR HR RE NMNIMAMAMGMMGHE AMA] 


00002C 
00057E 
00070C 
000006 
000000 
000126 
000000 
000052 
000000 
000000 
000000 
00001C 
000000 
000000 
000000 
0000CA 
000250 
0002E8 
000000 
0005D0 
000002 
000000 
000010 
000346 
000000 
000000 
OO00BA 
000026 
00001C 
00001C 
0005B0 
0000BC 
00011C 
000000 
000008 
000000 
000004 
000004 
000000 
000000 
00025E 
000000 
0000DE 
0005C4 
000022 


KEK KKK KKK KKK RRR KK RRR KKK KK KKK RR KR KKK KKK RK KARR KKK KK KR KKK RK KR KR KKK KKK KAKA KEE 


THE END 


KEK KKK KKK KK RK RK KK KR KER KKK KR KKK KR KR KKK KKK RK KARR KKK RK KR KKK RK KR KR KKK K KKK AKA KEK 


LCUT 55 
1OPRIMIT 56 
SHELLCOM 57 
PROGCOMM 58 
RECOVERY 59 
LOWLEVEL 60 
DBDECL1 61 
POOLER 62 
DBENV 63 
HEAP 64 
VLTREE 65 
CZCOMPAC 66 
LABSCAN 68 
SCHEMA 69 
SCAN 70 
FI ELDEDI 71 
SCRAP 73 
FILERCOM 75 
PRPUBLIC 76 
PRSTDINF 77 
PRSTDPRO 78 
PRFILEPR 79 
PRBUF 80 
PRSPOOL 81 
QUEUES 82 
PREVENTS 83 
PRDLGMGR 84 
PRMGR 85 
UVT100 86 
USOROC 87 
STDUNIT 88 
| UMAN 90 
0B) 10 91 
FILEIO 92 
GRAPHS 94 
TREES 95 
REFS 96 
PARTS 97 
LISTS 98 
ME MMAN 99 
PASDEFS 100 
MPASLIB 101 
BLKIOINT 102 
BLOCKIO 103 
PASHEAP 104 
File -- Lines: 
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FILE: "LISA LIB 3 UNITSTD. TEXT" 


000001 KEK KKK KAR KKK KKK KKK KR KKK KK ERK KAKA KKK RK KR KK ARK KR KKK KKK KKK K KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UNITSTD 
000004 * 

000005 KKK KKKKKKK KKK KKK RK KA KKK KKK KKK KKK ARK KKK KK KK KKK KAKA KKK KKK KKK KK ARK KK KKKKKKKKKE 
000006 

000007 USES {$U+} UNITSTD; 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 


000013 {$Setc fDbgOK = FALSE} 
000014 {$Setc f0S = TRUE} 
000015 {$Setc fSym0K = FALSE} 
000016 {$Setc fstdl = FALSE} 
000017 {$Setc fTrace = FALSE} 
000018 {$SETC doTraceSM := TRUE} 


000019 {$SETC fTraceSM 
000020 {$1 FC f Trace} 


doTraceSM AND f Trace} 


000021 

000022 USES 

000023 {$U libos/syscall. obj} Syscall 
000024 {$ENDC} 

000025 (*$R-*) 

000026 

000027 CONST 

000028 chLst = 127; 

000029 chSp = 32; 

000030 chCr = 13; 

000031 chTab = 9; 

000032 oll eNil = 0; 

000033 procNil = 1; 

000034 {$l FC NOT f DbgOk} 

000035 fTstStd = FALSE; {$ENDC} 
000036 {$l FC NOT fstd1} 

000037 fTstStdl = FALSE; {$ENDC} 
000038 

000039 TYPE 

000040 TC = | NTEGER 
000041 TB = - 128..127; 
000042 TA = 0..127; 
000043 TP = “TB; 

000044 TPc = “TC 

000045 TPa = LONGI NT; 
000046 TF = BOOLEAN 
000047 TX = TC 

000048 TY = TC 

000049 TL = LONGI NT; 
000050 TW = | NTEGER; 
000051 TCh = TB 

000052 TCd = TC 

000053 TN = TL; 

000054 TPn = “TN; 

000055 TFd = RECORD 
000056 iFil: TB; 
000057 bhi: TB; 
000058 iblo: TW 
000059 END; 

000060 TPFd = “TFd 

000061 TNOrFd = PACKED RECORD 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical Information 


CASE TC OF 
1: 
(fd: TFd); 
2: 
(n: TN); 
END; 
TArgch = ARRAY [0..0] OF TCh:; 
TRgch = “TArgch; 
TAchad = RECORD 
rgch: TRgch; 
ichFst: TC: 
ichLim TC; 
END; 
TChad = *TAchad 
TArgb = ARRAY [0..0] OF TB 
TRgb = “TArgb; 
THrgb = “*TRgb; 
TAbad = RECORD 
rgb: TRgb; 
ichFst: TC: 
ichLim TC: 
END; 
TBad = “TAbad; 
TArgc = ARRAY [0..0] OF TC 
TRgc = “TArgc; 
TAr gx = ARRAY [0..0] OF TX 
TRgx = “TArgXx; 
TCmp = (cmpLs, cmpEq, cmpGr); 
TALI d = RECORD 
olleFreeFst: TC 
olleLim TC; 
END; 
TLid = “TAlId; 
TAlle = RECORD 
olleNxt: TC: 
ollePrv: TC: 
END; 
TLle = “TAlle; 
TSp = STRING[ 80]; 
TPsp = “TSp; 
THs p = “TPsp; 
TARgCHAR = PACKED ARRAY [0..0] OF CHAR; 
TRgCHAR = “TARgCHAR; 
TProc = TP; 
VAR 
Temp: Integer; 
{$1 FC fDbgOk} 
fTstStd: TF; 
{$ENDC} 
{$I FC fstd1} 
fTstStdl: TF; 
{$ENDC} 
{$1 FC NOT fSym0k} {$D-} {$ENDC} 


FUNCTION CMin(cl: TC; c2: TC): TC 


FUNCTION CMax(cl: TC; c2: TC): TC 


PROCEDURE MoveAchad( VAR achadDst: TAchad; VAR achadSrc: TAchad); 


PROCEDURE MoveRgch(rgchDst: TRgch; rgchSrc: TRgch; ch: TC); 


PROCEDURE MoveOvRgch(rgchDst: TRgch; rgchSrc: TRgch; cb: TC); 


PROCEDURE DivMod(num: TC; denom TC; VAR quotient: TC; VAR rem TC); 
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000128 

000129 FUNCTION I BinSearch(rgc: TRgc; icLst: TC; c: TC): TC 
000130 

000131 PROCEDURE Break(bkcd: TC); 

000132 

000133 PROCEDURE MoveOlle(IId: TIlld; olle: TC; VAR olleDstFst: TC 
000134 VAR olleSrcFst: TC) 

000135 

000136 PROCEDURE PxLIid(I1d: TLId); 

000137 

000138 PROCEDURE InitOlleFree(IId: TLId; olleFreeFst: TC; cbhAlle: TC) 
000139 

000140 FUNCTION IchCr( VAR achad: TAchad; fFwd: TF): TC 
000141 

000142 FUNCTION WAnd( wl, w2: TW: TW 

000143 

000144 FUNCTION Wxor( wl, w2: TW: TW 

000145 

000146 FUNCTION Wot(w: TW: TW 

000147 

000148 FUNCTION WhLft(w: TW cbhitSh: TW: TW 

000149 

000150 FUNCTION WhRt( w: TW chitSh: TW: TW 

000151 

000152 PROCEDURE AsgnField(p: TP; ib: TW mskNotFld: TW val: TW cbitSh: TC); 
000153 

000154 FUNCTION Val OfField(p: TP; ib: TW mskNotFld: TW cbhitSh: TC): TW, 
000155 

000156 FUNCTION UpperCh(ch: CHAR): CHAR 

000157 

000158 PROCEDURE MakeSpUpper(VAR sp: TSp); 

000159 {$1 FC f Trace} 

000160 

000161 PROCEDURE InitTrCalls:; 

000162 

000163 PROCEDURE LogCal| 

000164 

000165 PROCEDURE ResetTrace(LogNamesAndSegs: Boolean); 
000166 

000167 PROCEDURE StartCallLog 

000168 

000169 PROCEDURE StopCall Log 

000170 

000171 PROCEDURE ListCalls; 

000172 

000173 PROCEDURE SetCall Trace(Traceit: Boolean); 

000174 {$ENDC} 

000175 


00.0176 ROO OG IGOR IIR KE 
000177 * 

000178 * THAT'S ALL FOLKS ... 

000179 * 

00.0180 6 ROO GGG GOOG III KE 


000181 


End of File -- Lines: 181 Characters: 4379 
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FILE: "LISA LIB 3 USOROC. TEXT" 


000001 KEK KKK KARA KR KR KKK KKK RK KK KK KKK KR KR KKK RK KR KK ARK KR KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : USOROC 

000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK RK KK KK EK K KKK EK KKK 
000006 

000007 USES {$U+} USOROC 

000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U tklib} UObject, 

000016 {$U sysllib} QuickDraw 

000017 {$U tklib} UDraw 

000018 {$U tklib} UABC 

000019 {$U tklib} UTKUniversal Text, 

000020 {$U tklib} UText, 

000021 {$U tklib} UDialog 

000022 {$U iospaslib} Blkiointr 

000023 {$U libqp/UStdTerm} UStdTerm 

000024 

000025 CONST 

000026 max | =. 3} 

000027 

000028 TYPE 
000029 states 
000030 llist 
000031 small str STRI NG[ 10) 

000032 TSOROC SUBCLASS OF TStdTerm 

000033 state: states; 

000034 I: list; 

000035 newline: BOOLEAN 

000036 params, pos, top, bottom rmarg: INTEGER 

000037 vReadBuff: TString 

000038 FUNCTION CREATE(object: TObject; heap: Theap): TSOROC; 
000039 END; 

000040 

000041 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KK EK K KKK EK KKK 
000042 * 

000043 * THAT'S ALL FOLKS ... 

000044 * 


000045 KEK KKK KAR KK KK KKK KKK RK KR KK KKK KR KR KKK KK KR KK ARK KR KKK KKK KER KKK KK KKK KKK RK KAKA KKK KKK 


(q0, ql, q2, q3, q4, q6); 
ARRAY [1..maxl] OF CHAR; 


End of File -- Lines: 45 Characters: 1224 
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FILE: "LISA LIB 3 UVT100. TEXT" 


000001 KEK KKK KAR KK RRR KKK KKK RK KK KK KR KKK KR KKK RK KR KK KKK KR KKK KKK KKK KKK KK KKK KARR KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : UVT100 

000004 * 

000005 RGGI RRR RAKES 
000006 

000007 USES {$U+} UVT100; 


000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U tklib} UObject, 

000016 {$U sysllib} QuickDraw, 

000017 {$U tklib} UDraw, 

000018 {$U tklib} UABC, 

000019 {$U tklib} UTKUniversal Text, 

000020 {$U tklib} UText, 

000021 {$U tklib} UDialog, 

000022 {$U iospaslib} Blkiointr, 

000023 {$U libqp/UStdTerm} UStdTerm; 

000024 

000025 CONST 

000026 max p = 5; 

000027 max | = 5; 

000028 bmarg = 23; 

000029 tmarg = 0; 

000030 

000031 TYPE 

000032 states = (q0, g1, q2, q3, q4, q5, q6, q7); 
000033 Plist = ARRAY [1..maxp] OF Tstr255; 
000034 llist = ARRAY [1..maxl] OF CHAR; 

000035 padtype = (ansiAppl, vt52Appl, normal); 
000036 curskeymodes = (ansiSet, ansiReset, vt52set); 
000037 small str = string[10]; 

000038 typeStyle = (GR, US, UK); 

000039 font Stuff = RECORD 

000040 vcursorXY: TCoordinate: 
000041 charl nfo: TRAttributes: 
000042 currType: typestyle; 

000043 END; 

000044 TVT100 = SUBCLASS OF TStdTerm 

000045 state: states; 

000046 P: Plist; 

000047 I: Ilist; 

000048 newline, ansi, vt52, LetHerScroll, ukPound, 
000049 origabs: BOOLEAN; 

000050 params, pos, top, bottom, rmarg: INTEGER; 
000051 charAttr: fontStuff; 

000052 vReadBuff: TString; 

000053 S1Font, SOFont, currentFont: typeStyle; 
000054 TILE1L2VTS, TILE2OVTS: INTEGER; 
000055 CursorKeyMode: curskeymodes; 
000056 keyPad: padtype; 

000057 FUNCTION CREATE(object: TObject; heap: Theap): TVT100; 
000058 END; 

000059 


000060 KEK KKK KAR KK RRR KKK KKK RK KK KK KKK KR KK KKK EKA KK ARK RR KKK KK KKK RK KR KK KKK ARR KR KKK KK KKK KEK 


000061 * 
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000062 * THAT'S ALL FOLKS ... 


000063 * 


000065 


End of File -- Lines: 65 Characters: 2028 
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FILE: "LISA LIB 3 VLTREE. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KKK RK KR KR KKK KK KR KK KKK ERK KKK KKK KR KKK KK KKK KAKA KKK KK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : VLTREE 

000004 * 

000005 KKK KKKKKKK KK KKK KAKA KKK KKK KKK KKK ARK KKK KKK KKK KK ARK KAR KKK KKK KKK KKK KKK KAR KKKKKKKKKKE 
000006 

000007 USES {$U+} VLTREE; 

000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$I FC OSBUILT } 

000016 {$U libsm/unitstd. obj } unitstd, 

000017 {$U libdb/dbenv.obj } dbenv 

000018 {$U libin/INTRLIBp. obj } international 
000019 {$U libdb/dbdecl1.obj } dbdecl1, 

000020 {$U libos/syscall.obj } syscall 

000021 {$U libos/psyscall.obj } psyscall 
000022 {$U libdb/lowlevel.obj } lowlevel 
000023 {$U libdb/pooler.obj } pooler 

000024 {$U libdb/ heap. obj } heap; 

000025 {$ELSEC} 

000026 {$U OB): dbenv.obj } dbenv, 

000027 {$U I NTRLIB. obj } international 

000028 {$U OB): dbdecl1.obj } dbdecl1, 

000029 {$U OB): syscall.obj } syscall 

000030 {$U OB): lowlevel.obj } lowlevel 

000031 {$U OB): pooler.obj } pooler 

000032 {$U OB): heap. obj } heap 

000033 {$ENDC 
000034 

000035 Const 
000036 

000037 

000038 nof low 
000039 treeempty 
000040 rotate 
000041 coallesce 
000042 pageempt y 
000043 isplit 
000044 

000045 FUNCTION entrysize(firstfld, lastfld, doitfld, isize: integer 

000046 pedesc: ptrrecptr; prec: ptrdata): integer 

000047 

000048 FUNCTION quickinsert(fileid: integer; pagetype: integer; pnewrec: ptrdata; 
000049 size: integer; pfptr: ptrfileptr; canmove: boolean; 
000050 index, buffi: integer; VAR ipage: fileptr 

000051 VAR iindex: integer): boolean; 

000052 

000053 FUNCTION quickDelete(VAR kresult: integer; onfile: integer; qpage: fileptr 
000054 qindex: integer): boolean; 

000055 

000056 FUNCTION quickUpdate(VAR kresult: integer; onfile: integer; pnewrec: ptrdata; 
000057 size: integer; qpage: fileptr 

000058 qindex: integer): boolean; 

000059 

000060 FUNCTION splitORrotate(VAR kresult: integer; fileid: integer 

000061 pagetype: integer; pnewrec: ptrdata; size: integer 


urPwn Ke ©& 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 *** 
000101 * 
000102 * 
000103 * 
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pfptr: ptrfileptr; canmove: boolean; index, 
buffl: integer; leftsib, rightsib: fileptr 
VAR buff2: integer; VAR ipage: fileptr 

VAR iindex: integer; ps: ptrstackrec 

VAR sibpage: fileptr): integer 


PROCEDURE firstleaf(VAR kresult: integer; fileid: integer; pagetype: integer 
pnewrec: ptrdata; size: integer; VAR ipage: fileptr 
VAR iindex: integer); 


FUNCTION pagedelete(VAR kresult: integer; fileid: integer; pagetype: integer 
buffer, index: integer; closestsib: fileptr; 
VAR rbuff: integer; VAR dpage: fileptr 
VAR dindex: integer): integer 


PROCEDURE findduplicate(VAR kresult: integer; fileid: integer; pedesc, 
psdesc: ptrrecptr; nsearch: integer; is_insert, 
duplimpossible: boolean; pkey: ptrdata; VAR buffer 
index: integer; VAR stackinvalid: integer) 


PROCEDURE nextprior(VAR kresult: integer; fileid: integer; VAR buffer, 
index: integer; which: integer); 


PROCEDURE find(VAR kresult: integer; which: integer; nsearch: integer; 
fileid: integer; psdesc: ptrrecptr; pkey: ptrdata; 
VAR buffer: integer); 


PROCEDURE findkeyed(VAR kresult: integer; which: integer; nsearch: integer 
fileid: integer; psdesc: ptrrecptr; pkey: ptrdata; 
VAR buffer, buffindex: integer); 


PROCEDURE insertkeyed(VAR kresult: integer; fileid: integer; pkey: ptrdata; 
size: integer; VAR ipage: fileptr 
VAR jindex: integer); 


PROCEDURE deletekeyed(VAR kresult: integer; fileid: integer; pkey: ptrdata; 
VAR dpage: fileptr; VAR dindex: integer); 


KER KKK KKK RRR KKK KKK RK KR KR KKK KK ERK KARR KKK RK KKK KAKA RRA K KR KKK RK ERK R KKK KKKR KKK KS 


THAT'S ALL FOLKS ... 


000104 KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK RK KR KK ARK KR KKK KKK KER KKK KK KKK KR KR KKK KK KKK KEK 


000105 


End of File -- 
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FILE: "LISA LIB 3 WINDOWS. TEXT" 


000001 KEK KKK KAR KK RK KKK KKK KR KKK KK KR KK RK R KKK RK KR KK ARK KR KKK KK KKK K KR KK KKK KR KR KKK KK KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WNDOWS 

000004 * 

000005 RAG IGG IGG IGG IGG GRRE RARE 
000006 

000007 USES {$U+} WINDOWS; 


000008 

000009 

000010 INTRINSIC SHARED; 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/ Unit Std } UnitStd, 

000016 {$U libsm/ UnitHz } UnitHz, 

000017 {$U libqd/ Storage } Storage, 

000018 {$U libqd/QuickDraw } QuickDraw, 
000019 {$U |i bf m/ Font Mgr } Font Mgr, 

000020 {$U libos/SysCall } SysCall, 

000021 {$U |i bwm/ Events } Events: 

000022 

000023 CONST 

000024 last Window = 24; 

000025 

000026 TYPE 

000027 StringPtr = *$tr255; 

000028 StringHandle = *StringPtr; 

000029 Wi ndowPeek = “WindowRecord: 

000030 WindowRecord = RECORD 

000031 port: Graf Port; 
000032 strucRgn: RgnHandle; 
000033 contRgn: RgnHandl e; 
000034 updateRgn: RgnHandl e; 
000035 wi ndowPic: PicHandle; 
000036 wi ndowProc: ProcPtr; 
000037 dataHandle: Handle; 
000038 refCon: Longl nt; 
000039 process: Longl nt; { window process owner } 
000040 titleHandle: StringHandle; 
000041 titleWdth: INTEGER; 
000042 next Window: Wi ndowPeek; 
000043 closelcon: INTEGER; 
000044 iconOverlay: INTEGER; 
000045 available: BOOLEAN; 
000046 visible: BOOLEAN; 
000047 hilited: BOOLEAN: 
000048 hasTab: BOOLEAN: 
000049 okMove: BOOLEAN; 
000050 okGrow: BOOLEAN; 
000051 okFront: BOOLEAN; 
000052 okClose: BOOLEAN; 
000053 okActivate: BOOLEAN; 
000054 okDispose: BOOLEAN; 
000055 END; 

000056 WindowMessage = (draw, hit, calcRgns); 
000057 

000058 VAR 

000059 buttonWindow: Wi ndowPeek; 

000060 grayRgn: RgnHandl e; 

000061 wmPort: Graf Ptr; 
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000062 saveUpdate: BOOLEAN; 

000063 pai nt White: BOOLEAN; 

000064 windowArray: ARRAY [0..lastWindow] OF WindowRecord; 
000065 dPort, wPort: Graf Port; 

000066 

000067 PROCEDURE BringToFront( window: WindowPeek; reDraw: BOOLEAN); 
000068 

000069 PROCEDURE CalcVis( window: WindowPeek); 

000070 

000071 PROCEDURE CalcVisBehind(start Window: WindowPeek; clobbered: RgnHandle); 
000072 

000073 PROCEDURE ChangeProcess( window: WindowPtr; newProcess: ProcessID); 
000074 

000075 PROCEDURE CheckW ndow( VAR event: EventRecord); 

000076 

000077 PROCEDURE Cli pAbove( window: WindowPeek); 

000078 

000079 PROCEDURE Del eteWi ndow( window: Wi ndowPeek); 

000080 

000081 PROCEDURE DisposeString(sh: StringHandle); 

000082 

000083 PROCEDURE DrawNew( window: WindowPeek; fUpdate: BOOLEAN); 
000084 

000085 PROCEDURE Get Wi ndTitle(window: WindowPeek;: VAR title: Str255); 
000086 

000087 PROCEDURE HideWindow( window: Wi ndowPeek); 

000088 

000089 PROCEDURE HiLiteWi ndow( window: WindowPeek;: fHiLite: BOOLEAN); 
000090 

000091 PROCEDURE HitContent( window: WindowPeek; event: EventRecord); 
000092 

000093 PROCEDURE InsertWindow( window, behind: WndowPeek); 

000094 

000095 PROCEDURE MakeActive(window: WindowPeek; event: EventRecord); 
000096 

000097 PROCEDURE MoveWi ndow( windPeek: WindowPeek; dh, dv: INTEGER; 
000098 bringFront: BOOLEAN); 

000099 

000100 FUNCTION NewString(str: Str255): StringHandle; 

000101 

000102 PROCEDURE Paint Behind(start Window: WindowPeek; clobbered: RgnHandle); 
000103 

000104 PROCEDURE Paint One( window: WndowPeek; clobbered: RgnHandle); 
000105 

000106 FUNCTION PrevWi ndow( window: WindowPeek): Wi ndowPeek: 

000107 

000108 PROCEDURE SaveOld( window: WindowPeek); 

000109 

000110 PROCEDURE SendUpdate; 

000111 

000112 PROCEDURE Set Act Wi ndow( window: Wi ndowPeek); 

000113 

000114 PROCEDURE SetString(sh: StringHandle; str: Str255); 

000115 

000116 PROCEDURE SetWindTitle(window: WindowPeek: title: Str255); 
000117 

000118 PROCEDURE ShowWi ndow( window: Wi ndowPeek); 

000119 

000120 PROCEDURE TopActi ve; 

000121 

000122 FUNCTION UpShift(ch: CHAR): CHAR; 

000123 

000124 PROCEDURE WindowSize(window: WindowPeek; width, height: INTEGER; 
000125 fUpdate: BOOLEAN); 

000126 


000127 KEK KKK KKK KKK KR KKK KKK RK KK KK KR KK RRR KKK RK KR KK KKK KR KKK KKK KKK KR KK KKK KR KKK KAKA KKK KEK 
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000128 
000129 
000130 
000131 
000132 


End of 
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x 


‘ THAT'S ALL FOLKS ... 


KEK KKK KAR KK RK R KKK KKK RK KK KKK RK KR KR KKK KK KR KK ARK KR KKK KR RRR RK KR KK KKK KR KKK KAKA KKK KEK 


File -- Lines: 132 Characters: 3916 
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FILE: "LISA LIB 3 WMLCRS. TEXT" 


000001 KEK KKK KAR KK AK KKK KKK KR KKK KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK KR KKK KK KKK KKK KKK KKK KKK KKK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLCRS 

000004 * 

000005 RGGI IGG IGG IGG GGG IGG GGG IGG IGG IGG GR GRE RAKE 
000006 

000007 USES {$U+} WMLCRS; 


000008 

000009 

000010 INTRINSIC 

000011 

000012 INTERFACE 

000013 

000014 USES 

000015 {$U libsm/ Unitstd } UnitStd 
000016 {$U libsm/ UnitHz } UnitHz 
000017 {$U libqd/Storage  } Storage 
000018 {$U libqd/ QuickDraw } QuickDraw, 
000019 {$U |i bf m/ Font Mgr } Font Mgr 
000020 {$U libfm/ FmgrUtil } FmgrUtil 
000021 {$U |ibsb/ Wml Std } Wnl Std 
000022 

000023 CONST 

000024 icrsFirst ead 

000025 icrsHidden ee A 

000026 icrsEscape = 0; 

000027 icrsinactive = 1; 

000028 icrsUpDwn = 23 

000029 icrsLftRt = 3; 

000030 icrsGrow = 4: 

000031 icrsl beam = 53 

000032 icrsMenu = 63 

000033 icrsVSkewer = 7} 

000034 icrsHSkewer = 8 

000035 icrsLCcross = 9: 

000036 icrsXl Beam = 10 

000037 icrsHrGlass = 11; 

000038 icrsCheck = 12: 

000039 icrsGECross = 13; 

000040 icrsLFinger = 14; 

000041 icrsGElbeam = 15: 

000042 icrsLast = 15; 

000043 

000044 PROCEDURE I nit Wm Crs(VAR cError: TC) 
000045 

000046 PROCEDURE SetStdCursor(icrs: TC); 
000047 

000048 FUNCTION IcrsCurrent: TC 

000049 


000050 REG I GGG IGG IGG IGG IGG IGG GRRE RAKES 
000051 * 

000052 * THAT'S ALL FOLKS ... 

000053 * 

000054 RGGI IGG IGG IGG GG IGG IGG GGG IGG RRR RARE RAKES 


000055 


End of File -- Lines: 55 Characters: 1283 
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FILE: "LISA LIB 3 WMLGROW. TEXT" 

000001 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KK KKK RK KK KKK KK KK KEK KK KKK KKK 
000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLGROW 
000004 * 

000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KK KKK RK KK KKK KK KK KEK KK KKK KKK 
000006 

000007 USES {$U+} WMLGROW: 

000008 

000009 

000010 INTRINSIC; 

000011 

000012 INTERFACE 

000013 

000014 USES {$U libsm/ UnitStd } UnitStd 
000015 {$U libsm/ UnitHz } UnitHz 

000016 {$U libqd/ Storage } Storage 

000017 {$U libqd/ QuickDraw } QuickDraw 

000018 {$U |i bf m/ Font Mgr } Font Mgr 

000019 {$U libsb/ Wml Std } Wm Std, 

000020 {$l FC FWMLOS } 

000021 {$U libos/SysCall } SysCall 

000022 {$ELSEC } 

000023 {$U obj: OSStub } SysCall 

000024 {$ENDC} 

000025 {$U |i bwm/ Events } Events 

000026 {$U |i bwm/ Folders } Folders 

000027 

000028 CONST 

000029 dhGrow = 24; 

000030 dvGrow = 16; 

000031 

000032 PROCEDURE Get GrowRect(VAR rGrow: TR) 

000033 

000034 PROCEDURE Paint Grow 

000035 

000036 FUNCTION FGrowHit(pt: TPt): TF; 

000037 

000038 PROCEDURE DragFrame(ptMouse: TPt; fDrawScrolls: TF; VAR ptNewBR: TPt); 
000039 

000040 PROCEDURE I nitXorFrame; 

000041 

000042 PROCEDURE XorFrame(ptFrameBR: TPt; fDrawScrolls: TF); 

000043 

000044 PROCEDURE EndXorFrame 

000045 

000047 = * 

000048 * THAT'S ALL FOLKS ... 

000049 * 

000050 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KK KKK RK KK KK KEK KK KK KEK KK KKK KKK 
000051 

End of File -- Lines: 51 Characters: 1218 


Apple Lisa Desktop Library 3.0 Pascal Interfaces 192 of 196 


Apple Lisa Computer Technical 


Information 


FILE: "LISA LIB 3 WMLSB, TEXT" 
000001 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KK KKK RK KK KK RK KK KKK KK KKK KKK 
000002 * 
000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLSB 
000004 * 
000005 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KK KKK RK KK KK KEK KK KK EKA KKK 
000006 
000007 USES {$U+} WMLSB; 
000008 
000009 
000010 INTRINSIC; 
000011 
000012 INTERFACE 
000013 
000014 USES 
000015 {$U libsm/ Unit Std } UnitStd, 
000016 {$U libsm/ UnitHz } UnitHz, 
000017 {$U libqd/Storage } Storage, 
000018 {$U libqd/ QuickDraw } QuickDraw, 
000019 {$U |i bf m/ Font Mgr } Font Mgr, 
000020 {$U |ibsb/ Wml Std } Whl Std, 
000021 {$1 FC FWMLOS} 
000022 {$U libos/Syscall } Syscall, 
000023 {$ELSEC} 
000024 {$U obj: OsStub } Syscall, 
000025 {$ENDC} 
000026 {$U |i bwm/ Events } Events: 
000027 
000028 CONST 
000029 dhSbox = 24: 
000030 dvSbox = 16; 
000031 dhThumb = 24; 
000032 dvThumb = 16; 
000033 dhSkewer = 63 
000034 dvSkewer = 4: 
000035 
000036 TYPE 
000037 Tlcon = (iconSkewer, iconArwA, iconPagA, iconGryA, iconThumb, 
000038 iconGryB, iconPagB, iconArwB); 
000039 TSicon = SET OF Tlcon; 
000040 THSb = *TPSb; 
000041 TPSb = “TSb; 
000042 TSb = RECORD 
000043 r: TR; 
000044 tyvh: TTyvh; 
000045 sicon: TSicon; 
000046 siconVis: TSicon: 
000047 cThumb: TC; 
000048 refCon: TL: 
000049 fHead: TF; 
000050 hsbPrv: THSb; 
000051 hsbNxt: THSb; 
000052 END; 
000053 TSbList = RECORD 
000054 hz: THz; 
000055 hsbFst: THSb; 
000056 END; 
000057 TPosts = ARRAY [iconSkewer..iconArwB] OF TCd; 
000058 
000059 VAR 
000060 hsbNil: THSb: 
000061 dptSbox: TPt; 
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000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
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dpt Thumb: TPt; 
dpt Skewer: TPt;: 
TyvhNOT: ARRAY [TTyvh] OF TTyvh 
fTstSb: TF; 


PROCEDURE | nit Wm Sb 
PROCEDURE InitSbList(VAR sbList: TSbList; hz: THz); 


FUNCTION SbCreate(VAR sbList: TSbList; hsbBefore: THSb; tyvhSb: TTyvh; 
ptTopLeft: TPt; cdBotRt: TCd): THSb 


PROCEDURE Kill Sb(VAR sbList: TSbList; hsbKill: THSb); 

PROCEDURE GetSbRect(hsb: THSb; VAR r: TR); 

PROCEDURE SetSbRect(hsb: THSb; r: TR) 

FUNCTION RefconSb(hsb: THSb): TL; 

PROCEDURE SetSbRefcon(hsb: THSb; refcon: TL); 

FUNCTION HsbFirst(VAR sbList: TSbList): THSb; 

FUNCTION HsbNext(hsb: THSb): THSb 

FUNCTION HsbPrev( hsb: THSb): THSb; 

FUNCTION TyvhOfSb( hsb: THSb): TTyvh; 

PROCEDURE SetSblcons(hsb: THSb; siconNew: TSicon); 

PROCEDURE GetSbicons(hsb: THSb; VAR sicon: TSicon); 

PROCEDURE Get Vislcons(hsb: THSb; VAR siconVis: TSicon); 
FUNCTION CThumbPos(hsb: THSb): TC 

PROCEDURE SetThumb( hsb: THSb; cNewThumb: TC); 

PROCEDURE MoveSb(hsb: THSb; ptNewTL: TPt); 

PROCEDURE Adj SbCorner(hsb: THSb; dcdAdjust: TCd; fTopLeft: TF); 
PROCEDURE PaintSb(hsb: THSb); 

PROCEDURE EraseSb(hsb: THSb); 

PROCEDURE PaintArw( hsb: THSb; iconWhichArw: Tlcon; fBlack: TF); 
FUNCTION HsbFromPt(VAR sbList: TSbList; pt: TPt): THSb; 


FUNCTION FSbHit(VAR sbList: TSbList; pt: TPt; VAR hsbHit: THSb; 
VAR iconHit: Tlcon): TF; 


PROCEDURE FlushRects(VAR rH, rV: TR); 
PROCEDURE MkPosts(hsb: THSb; VAR posts: TPosts); 


PROCEDURE SplitSb(VAR sbList: TSbList; hsbOld: THSb; VAR hsbNew: THSb; 
cdCut: TCd); 


PROCEDURE Adj SplitBetween(hsbBefore, hsbAfter: THSb; dcdAdjust: TCd); 
FUNCTION HsbNextOnSbar(hsb: THSb): THSb; 
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000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
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FUNCTION HsbPrevOnSbar(hsb: THSb): THSb; 
FUNCTION HsbSbarHead(hsb: THSb): THSb 

FUNCTION HsbSbarTail (hsb: THSb): THSb 

FUNCTION FSbarHead( hsb: THSb): TF; 

PROCEDURE SlideSbar( hsb: THSb; dcdAdjust: TCd); 
PROCEDURE PaintSbar(hsb: THSb); 

PROCEDURE EraseSbar(hsb: THSb); 

PROCEDURE SetupMvThumb( hsb: THSb); 

PROCEDURE MoveThumb(cNewThumb: TC); 

PROCEDURE DragThumb( hsb: THSb; ptMouse: TPt; VAR cThumbUp: TC); 
PROCEDURE FixRLimits(hsb: THSb; VAR rLimits: TR) 


PROCEDURE DragSkewer(hsbDwn: THSb; ptMouse: TPt; rLimits: TR 
VAR ptSkewerUp: TPt); 


PROCEDURE HideSBorder(r: TR); 
{$lFC Wml Debug } 


PROCEDURE PxSbList(VAR sbList: TSbList); 
PROCEDURE PxSicon(sicon: TSicon); 
PROCEDURE PxSb(hsb: THSb); 


PROCEDURE PxSbar(hsb: THSb); 
{$ENDC } 


000165 KEK KKK KARA KR K KKK KKK KR KKK KK KR KK RK RRR KEK KR KK ARK KR KKK KK KK E RK KR KK ARR K KR KKK KAKA KKK KEK 


000166 * 
000167 * 
000168 * 


THAT'S ALL FOLKS ... 


000169 KEK KKK KAKA KR KK KKK KKK RK KR KK ERK KR KR KKK RK KR KK ARK ERK KKK KKK ERK K KKK KKK KR KR KKK KK KKK KEK 


000170 


End of File -- 
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FILE: "LISA LIB 3 WMLSTD. TEXT" 


000001 KEK KKK KAR KK RRR KKK KKK RK KK KK ERK KR KR KKK KK KR KK KKK KR KKK KK KKK KK KK KKK KR KKK KAKA KKK KEK 


000002 * 

000003 * APPLE LISA DESKTOP LIBRARY INTERFACES (Version 3.0) : WMLSTD 

000004 * 

000005 RGGI IGG IGG GGG IGG GGG GGG IGG RRR RAKES 
000006 

000007 USES {$U+} WMLSTD 

000008 

000009 

000010 INTRINSIC 

000011 {$SETC FWMLOS : = TRUE } 


000012 

000013 INTERFACE 

000014 

000015 USES {$U libsm/UnitStd } UnitStd 
000016 {$U libsm/ UnitHz } UnitHz 

000017 {$U libqd/Storage } Storage 

000018 {$U libqd/ QuickDraw } QuickDraw, 

000019 {$U |i bf m/ Font Mgr } Font Mgr 

000020 {$SETC Wnl Debug = FDbgOK } 

000021 {$SETC Wml Symbols := FSym0k } 

000022 {$SETC doTraceSB := TRUE} 

000023 {$SetC fTraceSB := doTraceSB AND f TRACE} 
000024 

000025 CONST 

000026 tyvhV = V; 

000027 tyvhH = Hi; 

000028 

000029 TYPE 

000030 TAport = Graf Port; 

000031 TPort = Graf Ptr 

000032 TBmp = BitMap 

000033 TPt = Point; 

000034 TTyvh = VHSelect; 

000035 TR = Rect; 

000036 

000037 PROCEDURE PenSave 

000038 

000039 PROCEDURE PenRestore 

000040 

000041 PROCEDURE Whi TxtSave 

000042 

000043 PROCEDURE Wn TxtRestore 

000044 

000045 KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KEK KK KK RK KK KK EKA KKK 
000046 * 

000047 * THAT'S ALL FOLKS ... 
000048 * 


000049 KEK KKK KAR KKK KR KKK KR KR KKK KK ERK KARR KKK EK KR KK ARK KR KKK KK KKK RK KR KK KKK KR KR KKK KK KKK KKK 


000050 
End of File -- Lines: 50 Characters: 1110 
SUMMARY: 

Total number of files : 76 


Total file lines : 9648 
Total file characters : 278266 
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